Para que no puedan moverse con el raton por ese edit prueba esto:
procedure TFormPrincipal.Edit1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
SetCursorPos(0,0); //Pone el cursor arriba a la izquierda
end;
Para que no entren en el campo pon el edit con TabStop=False
__________________
Saludos,
Peter Investment
|