frmdemo.pas

Delphi面向对象编程思想附书源码 好用哦！

unit frmDemo;

interface

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

type
  TForm1 = class(TForm)
    btnRideBicycle: TButton;
    btnDriveCarA: TButton;
    ckbGPS: TCheckBox;
    btnDriveCarB: TButton;
    Image1: TImage;
    Button1: TButton;
    procedure btnDriveCarAClick(Sender: TObject);
    procedure btnRideBicycleClick(Sender: TObject);
    procedure ckbGPSClick(Sender: TObject);
    procedure btnDriveCarBClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FGPSReceiver:TGPSReceiver;
  public

  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.btnDriveCarAClick(Sender: TObject);
var MyCar:TCar;
begin
  MyCar:=TCar.Create(FGPSReceiver,'黑色','红旗',200);
  try
    MyCar.drive;
  finally
    MyCar.Free;
  end;
end;

procedure TForm1.btnRideBicycleClick(Sender: TObject);
var Bicycle:TBicycle;
begin
  Bicycle:=TBicycle.Create;
  try
    Bicycle.ride;
  finally
    Bicycle.Free;
  end;
end;

procedure TForm1.ckbGPSClick(Sender: TObject);
begin
  if  ckbGPS.Checked then
    FGPSReceiver:=TGPSReceiver.Create
  else
    FreeAndNil(FGPSReceiver);
  if assigned(FGPSReceiver) then showmessage('导航系统开启...')
  else showmessage('导航系统关闭...');
end;

procedure TForm1.btnDriveCarBClick(Sender: TObject);
var MyCar:TCar;
begin
  MyCar:=TCar.Create(FGPSReceiver,'红色','夏利',120);
  try
    MyCar.drive;
  finally
    MyCar.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.