procedure sbtnAddClick(Sender: TObject);
begin
if Sender is TButton then
(Sender as TButton).caption := '...';
end;
至于 like 好似在DELPHI语句中没用到
begin
if Sender is TButton then
(Sender as TButton).caption := '...';
end;
至于 like 好似在DELPHI语句中没用到
调试欢乐多
as 是强制转换