Uses
Forms,
........
implementation
{$R *.dfm}
procedure TForm1.Btn_1Click(Sender: TObject);
begin
Mmo_1.Clear;
Mmo_1.Lines := Screen.Fonts;
end;
Uses
Forms,
........
implementation
{$R *.dfm}
procedure TForm1.Btn_1Click(Sender: TObject);
begin
Mmo_1.Clear;
Mmo_1.Lines := Screen.Fonts;
end;
转载于:https://www.cnblogs.com/jupt/archive/2011/10/25/3922944.html