13,870
社区成员
发帖
与我相关
我的任务
分享急救！
我想让几个按扭共用同一响应，如在Delphi中：
procedure TForm1.NClick(Sender: TObject);
begin
with (Sender as TTButton) do
begin
table1.Filter:='地区='+''''+caption+'''';
end;
end;
如何实现相同的功能？
请给代码范例！
procedure TForm1.NClick(Sender: TObject);
begin
with (Sender as TTButton) do
begin
table1.Filter:='地区='+''''+caption+'''';
end;
end;
如何实现相同的功能？
请给代码范例！
...全文
请发表友善的回复…
发表回复
yeh20020135 2004-08-29
- 打赏
- 举报
怎么了，现在的人都没有同情心了吗？
