Impedir que un edit obtenga el foco

[[FGarcia]]

Hola!

Estoy seguro que en los foros ya se trato pero por mas que busque en la 258 hilos que me regreso la busqueda no lo encuentro.

Estoy usando un edit con fondo negro y letras en amarillo cual si fuera un display de x aparato sin embargo necesito que NUNCA tenga el foco, lo mismo sea si le hacen click con el mouse como si usan la tecla tab (tabstop = false) o de cualquier otro modo que se le ocurra al usuario, existente o por descubrir.

No se vale poner el (edit.enabled := False pues ya no se aprecia el color de las letras. (Edit.ReadOnly := True de cualquier manera al hacer click sobre el edit aparece el cursor e incluso puede seleccionar el texto.

estoy 99.9999999999999999999999 % seguro que alguien aqui tiene la respuesta. Gracias

[[Caral]]

Hola
Si as usado lo dicho, no se me ocurre otra cosa que usar un panel y poner el edit dentro, lo acabo de hacer y funciona.
Saludos

[[egostar]]

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.

[[Lepe]]

¿Tiene que ser forzosamente un Edit?

¿y un label?, colocando un Bevel alrededor y tal con pascual....

vale, ya me callo

[[egostar]]

Empezado por Lepe

¿Tiene que ser forzosamente un Edit?

¿y un label?, colocando un Bevel alrededor y tal con pascual....

vale, ya me callo

Pues si amigo Lepe, es mucho mas fácil que usar el Edit, y el que se queda mudo soy yo.

Digo para que complicarse la vida gratis.

Salud OS.

[[seoane]]

Pues yo sugeriría el control TStaticText, que creo que se ajusta perfectamente.