demo "EditorBrowser" active cursor to write at startup

[ericktux]

good morning, a question, in the demo "EditorBrowser" how can I start the application with the active cursor to be able to write quickly?

I am using lazarus on windows 10

[salvadordf]

Hi,

Add a TTimer called "Timer2", set the Timer2.Interval property to 1000 ms and Timer2.Enabled to FALSE.

Add this code in TForm1.BrowserCreatedMsg :

Code: Select all

procedure TForm1.BrowserCreatedMsg(var aMessage : TMessage);
begin
  Caption := 'Editor Browser';
  Timer2.Enabled := True;
end;  

Then add this code in the Timer2.OnTimer event :

Code: Select all

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Timer2.Enabled := False;
  PostMessage(Chromium1.RenderHandle, WM_LBUTTONDOWN, 0, 0);
  PostMessage(Chromium1.RenderHandle, WM_LBUTTONUP, 0, 0);
end;