Hola ZaneMS.
Cita:
Empezado por ZaneMS
Necesito que cuando tu código haga su funcionamiento si yo siga escribiendo vuelva a la letra normal.
|
Una posible solución es:
Código Delphi
[-]
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
RichEdit1.SelAttributes.Assign(RichEdit1.Font);
end;
Otra:
Código Delphi
[-]
procedure TForm1.ButtonFont(Sender: TObject);
begin
if FontDialog1.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;
Saludos