Ver Mensaje Individual
  #26  
Antiguo 07-08-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita