delphi 怎么定义一个事件,当一个变量的值变化的时候触发 5
3个回答
展开全部
示例:
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure SetValue(Const Value: Integer); //写入触发事件
public
{ Public declarations }
property Value: Integer write SetValue; //定义可写属性
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SetValue(const Value: Integer);
begin
//当 Form1.Value变化时触发此事件
end;
end.
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure SetValue(Const Value: Integer); //写入触发事件
public
{ Public declarations }
property Value: Integer write SetValue; //定义可写属性
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SetValue(const Value: Integer);
begin
//当 Form1.Value变化时触发此事件
end;
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以用setValue来实现
当作一个对象来处理
当作一个对象来处理
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询