sac,
Cita:
Empezado por sac
...No se puede crear una variable de tipo TFont donde se cargue una sola vez las propiedades...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
public
end;
var
Form1: TForm1;
FontBase : TFont;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
S : String;
begin
S := 'Ejemplo de cambio de propiedades de un Font';
Label1.Caption := S;
Edit1.Text := S;
Memo1.Lines.Add(S);
FontBase := TFont.Create;
FontBase.Name := 'Tahoma';
FontBase.Color := clBlue;
FontBase.Size := 11;
FontBase.Style := [fsBold, fsItalic, fsUnderline];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Font := FontBase;
Edit1.Font := FontBase;
Memo1.Font := FontBase;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
FontBase.Free;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
Permite modificar las propiedades de un TFont por medio de otro TFont, como se muestra en la siguiente imagen:
Espero sea útil
Nelson.