Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   cambiar font en un edit (https://www.clubdelphi.com/foros/showthread.php?t=3665)

acrophet 16-09-2003 10:56:33

cambiar font en un edit
 
Hola, me gustaria saber como puedo cambiar el tipo de font, mas concretamente el color, en un edit cuando su propiedad enabled es igual a false. Por defecto al hacer esto, el texto se pone de color gris y yo quiero que siga siendo negro.
Comentar que realmente no estoy usando un edit, sino el currencyedit de las rx, pero vamos, supongo que sera exactamente igual.
Gracias.

__cadetill 16-09-2003 10:59:23

A lo mejor te sirve ponerlo en ReadOnly a true y TabStop a false. No es exactamente un Enabled a false, pero lo simula muy bien ;)

acrophet 16-09-2003 11:29:01

Gracias por el intento, pero no hace lo que yo quiero que haga.
Realmente el edit lo quiero usar de display, no quiero que el usuario pueda editarlo; es para una calculadora (tipo la de windows) :)

__cadetill 16-09-2003 13:30:42

Cita:

Posteado originalmente por acrophet
no quiero que el usuario pueda editarlo;
El ReadOnly es lo que hace precisamente, que no se pueda editar, en cambio, lo que sí podrá hacer el usuario es llevar el foco con el ratón y podrá hacer "copy" del valor que contenga y pegarlo donde más le plazca (menos en ese Edit ya que está en ReadOnly)

acrophet 16-09-2003 13:48:13

A mi lo que me interesa realmente es lo siguiente:
Usar el edit simplemente para visualizar valores. Que el usuario no pueda editar, ni pinchar con el ratón encima para copiar el valor ni nada. Un "se mira pero no se toca" :D . Luego ya le pondré la opción de copiar en el menu.
Ah, y perdón por las molestias, que soy un novatillo :P

Investment 16-09-2003 14:11:20

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

marcoszorrilla 16-09-2003 16:07:44

Mira yo estos casos los resuelvo con un pequeño truco con el que no pierdo ninguna funcionalidad visual y sin embargo no se puede acceder a él.

Bájate un Tpanel, ponlo Enabled a "False" y ahora coje el Edit córtalo y pégalo encima del tpanel.

Reduce de tamaño el Tpanel hasta ajustarlo al edit, ni se nota el tpanel, pero el edit ya hace lo que tu quieres.

un Saludo.

acrophet 16-09-2003 16:27:08

marcoszorrilla mil gracias, eso es exactamente lo que quería hacer. Al fin!!!!!:)


La franja horaria es GMT +2. Ahora son las 14:37:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi