用Serder~~判断~~
procedure ShowMenu(Sender:TObject);
begin
if (Sender=SpeedButton2) then
begin
.....//Do SomeThing
end;
end;
解决方案 »
- Delphi给word加背景,加水印?
- 紧急呼叫高手高手高高手,,,,,,
- 在Automation中,如果将PPT中的slide导出为透明Png图片
- 请教一个关于TList的问题~也不知道是什么问题,还请大家帮忙看看,小弟先感谢先
- 哪位兄弟有带预览功能的flash屏保的源代码,给我发一份吧。
- 請問一下tqrdbrichtext的用法
- 怎样打开钱箱,我在pb用PrintSend(JOBS,"~h1B~h70~255~h15~h20",255),到我在d6,就不知道用什么函数替代?格式怎样?我刚学d6,谢谢!
- 关于取系统日期的问题!
- 我今天很伤感啊
- 最近惨了!如何让我的计算机占有尽量多的带宽呀!想想办法啦!
- 如何让Timage控件中绘制的动画不会闪烁??
- 各位高手,listview问题,急
case sender.tag of,,,,