ufrmsayhello.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 67 行

unit ufrmSayHello;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,uSayHello;

type
  TfrmSayHello = class(TForm)
    GroupBox1: TGroupBox;
    edtName: TLabeledEdit;
    edtSkinColor: TLabeledEdit;
    edtLanguage: TLabeledEdit;
    btnUSA: TButton;
    btnKorean: TButton;
    btnCN: TButton;
    btnFrench: TButton;
    Image1: TImage;
    procedure btnUSAClick(Sender: TObject);
    procedure btnCNClick(Sender: TObject);
    procedure btnFrenchClick(Sender: TObject);
    procedure btnKoreanClick(Sender: TObject);
  private
    procedure sayhello(AMan:TMan);
  public
    { Public declarations }
  end;

var
  frmSayHello: TfrmSayHello;

implementation



{$R *.dfm}
procedure TfrmSayHello.sayhello(AMan:TMan);
begin
  edtName.Text:=AMan.Name;
  edtLanguage.Text:=AMan.Language;
  edtSkinColor.Text:=AMan.SkinColor;
  image1.Picture.LoadFromFile(AMan.sayHello);
end;

procedure TfrmSayHello.btnUSAClick(Sender: TObject);
begin
  sayhello(TAmerican.create);
end;

procedure TfrmSayHello.btnCNClick(Sender: TObject);
begin
  sayhello(TChinese.create);
end;

procedure TfrmSayHello.btnFrenchClick(Sender: TObject);
begin
  sayhello(TFrench.create);
end;

procedure TfrmSayHello.btnKoreanClick(Sender: TObject);
begin
  sayhello(TKorean.create);
end;

end.