31.12.2011, 08:45
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
type
TMainForm = class(TForm)
crm: TChromium;
SpeedButton6: TSpeedButton;
procedure TMainForm.SpeedButton6Click(Sender: TObject);
begin
crm.Browser.SendMouseClickEvent(0, 0, MBT_LEFT, False, 1);
crm.Browser.MainFrame.SelectAll;
crm.Browser.MainFrame.Copy;
end; |