Hola Juampi.
Disculpa, no reparé que se trataba de
Lazarus .
Deberás incluir la unidad "
Windows" y también agregar el operador "
@" en la siguiente línea:
Código Delphi
[-]
...
uses Windows;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle := @ApplicationEventsIdle; end;
Se me ocurren dos posibilidades mas para usar en Windows:
Código Delphi
[-]
...
implementation
uses Windows;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
HideCaret(Edit1.Handle);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
HideCaret(Edit1.Handle);
end;
...
Código Delphi
[-]
...
implementation
uses Windows;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
HideCaret(Edit1.Handle);
end;
Saludos