Ver Mensaje Individual
  #24  
Antiguo 24-07-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.

Para ocultar el cursor del mouse en el Edit podes usar la función HideCaret.

Un ejemplo:
Código Delphi [-]
...

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    ...
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormDestroy(Sender: TObject);
  private
    procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
  
  ...
  end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := ApplicationEventsIdle;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Application.OnIdle := nil;
end;

procedure TForm1.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
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