|
Hola de nuevo, casi he conseguido que me funcione con el código que tenía. Bueno en realidad también debía funcionar antes, pero ahora me he dado cuenta de que la primera vez que se crea y activa el formulario (es el tercer formulario de la aplicación) cuando pincho en el botón del "Existe", me escribe el símbolo "$". Pero si lo selecciono de manera que se queda marcado en negro y vuelvo a dar al botón, pues me cambia el que había escrito y me escribe uno nuevo pero ya correctamente en el tipo de letra Symbol.
Si cierro esa ventana, vuelvo al formulario anterior y la vuelvo a abrir, ya si que me funciona bien desde el principio. Es como si el RichEdit ya se quedase bien. Probablemente necesite poner algo en el FormActivate o en el FormCreate. Ahora mismo tengo puesto lo siguiente:
procedure TForm3.FormActivate(Sender: TObject);
begin
RichEdit1.SetFocus;
RichEdit1.Text:='';
RichEdit2.Text:='';
RichEdit1.SelAttributes.Name:='Symbol';
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
RichEdit1.Text:='';
RichEdit2.Text:='';
RichEdit1.SelAttributes.Name:='Symbol';
end;
¿Creeis que está bien así? ¿Y por qué no cambia bien el tipo de letra la primera vez que se crea el formulario?
Gracias
Su
|