unit FormFProp;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
btnCreateForm: TButton;
procedure FormClick(Sender: TObject);
procedure btnCreateFormClick(Sender: TObject);
private
FClicks: Integer;
procedure SetClicks(const Value: Integer);
{ Private declarations }
public
property Clicks: Integer read FClicks write SetClicks;
end;var
Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.SetClicks(const Value: Integer);
begin
FClicks := Value;
end;procedure TForm1.FormClick(Sender: TObject);
begin
Inc (FClicks);
Caption := 'Clicks: ' + IntToStr (FClicks);
end;procedure TForm1.btnCreateFormClick(Sender: TObject);
begin
with TForm1.Create (Self) do
Show;
end;end.
上面的代码是来自《Mastering Delphi 7》这本书的47页(随书附带的源代码)SetClicks是个属性的写函数,有声明也有定义,但就是找不到它是怎么执行的???
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货