procedure TForm1.StringsChange(Sender: TObject);
begin
ShowMessage(TStrings(Sender).Text);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
with TStringList.Create do try
OnChange := StringsChange;
Text := 'No.1';
Text := 'No.2';
Text := '干什么用?就看你怎么用';
finally
Free;
end;
end;
begin
ShowMessage(TStrings(Sender).Text);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
with TStringList.Create do try
OnChange := StringsChange;
Text := 'No.1';
Text := 'No.2';
Text := '干什么用?就看你怎么用';
finally
Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货