Ver Mensaje Individual
  #3  
Antiguo 16-06-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.558
Reputación: 25
egostar Va camino a la fama
Y porque no usas los eventos para cambiar el foco.

Yo lo que haria es poner la propiedad ReadOnly del TEdit en True TabStop en False y en los eventos

Código Delphi [-]
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  Memo1.Setfocus;
end;
 
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  Memo1.Setfocus;
end;

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Memo1.Setfocus;
end;

Cambiar el foco a otro objeto.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 16-06-2007 a las 01:25:07.
Responder Con Cita