Программно кликнуть по кнопке

[Serg]

Добрый день!

Возможно ли программно кликнуть по кнопке?

 

[Sherzod]

17 minutes ago, Serg said:

Возможно ли программно кликнуть по кнопке?

Добрый день,

UniButton1.Click

?

[Serg]

MainForm.UniToolButton29.Click;

[dcc32 Error] Main.pas(1401): E2362 Cannot access protected symbol TControl.Click

[Sherzod]

6 minutes ago, Serg said:

MainForm.UniToolButton29.Click;

Попробуйте этот код, если не получится, создайте пожалуйста тестовый пример:

UniToolButton29Click(UniToolButton29);

 

 

[Serg]

Высылаю пример

UNI1.zip

[Sherzod]

3 minutes ago, Serg said:

Высылаю пример

UNI1.zip

procedure TMainForm.UniToolButton1Click(Sender: TObject);
begin
  //MainForm.UniToolButton2.Click;
  UniToolButton2Click(UniToolButton2);
end;

 

[Serg]

в тестовом работает но в основном проекте  нет

[Sherzod]

TeamViewer?

[Serg]

вот почему:

 

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  IDs: string;
begin

//--------------------CLIPBRD
UniToolButton29.ClientEvents.ExtEvents.Values['click']:='function click(sender, e, eOpts) '+
      ' { '+
      ' var textarea = document.getElementById("'+UniMemo1.JSName+'_id-inputEl"); '+
      ' textarea.select(); '+
      ' try { '+
      ' var successful = document.execCommand(''copy''); '+
      ' if(successful) console.log(''Copied!''); '+
      ' else console.log(''Unable to copy!''); '+
      ' } catch (err) { '+
      ' console.log(''Unsupported Browser!''); '+
      ' } '+
      ' }';

 

[Serg]

мне нужно что-бы по нажатию данной кнопки сначала готовилась текстовая строка и ТОЛЬКО ЗАТЕМ она копировалась в буфер!

 

Спасибо вам за помощь!

[Serg]

Не подскажите как это можно сделать?

[Sherzod]

33 minutes ago, Serg said:

Не подскажите как это можно сделать?

 

 

[Serg]

Спасибо! А как использовать вместо компонента переменную? Просто ее указать?

[Serg]

И в примере событие происходит сразу после нажатия кнопки. А мне в случае COPY надо сначала сделать копируемый текст )

[Sherzod]

Just now, Serg said:

И в примере событие происходит сразу после нажатия кнопки. А мне в случае COPY надо сначала сделать копируемый текст )

Пожалуйста, дайте постановку задачи более подробно )

[Serg]

Мне нужно по нажатию кнопки сгенерировать ключ из 28 символов и затем его скопировать в буфер обмена

[Serg]

Спасибо

[Sherzod]

Пожалуйста можете создать тестовый пример для VCL? Я попробую переделать...

[Serg]

Да. Спасибо

 

[Serg]

U11.zip