delphi中怎样执行一个按纽的过程？

yj 2000-02-14 02:50:00

delphi中怎样执行一个按纽的过程？
例如在某一另外地方执行button1的click事件过程？

...全文

110 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

Firing_Sky 2000-02-14

打赏
举报

用Button1.OnClick(Button1)来模拟Button1的单击事件

sky__horse 2000-02-14

打赏
举报

在另外的地方调用
Button1Click(Sender);

thinking_man 2000-02-14

打赏
举报

button1.click即可

Delphi创建动态菜单，在程序运行过程中动态添加菜单，点击“添加菜单”按钮，会在菜单栏中增加一个“编辑”菜单项，预设中每次添加的菜单项都是“编辑”，这也是为了验证不要添加重复的菜单项，代码中的判断是一种方法，另外也可以通过菜单项的Caption属性来判断，不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中：　　self.MainMenu1.AutoHotkeys:=maManual; 　　self.MainMenu1.AutoLineReduction:=maManual; 　　通过设置这两个属性可以禁止程序自动为菜单生成热键，否则程序会自动在菜单的Caption属性中加入热键，并且会修改Caption属性的值，给通过Caption属性判断菜单项带来麻烦。

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

Delphi制作自动滚动的工具栏，实例演示了一个可以自动滚动的工具栏。在窗体中添加一个TImageList组件，并且为它添加几个图像文件。然后添加一个TToolBar组件，设置TToolBar组件的Images属性为TImageList组件，在TToolBar组件上右击，在弹出的快捷菜单中选择New Button项，为TToolBar组件添加几个按钮，并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号。最后向窗体上添加一个TPageScroller组件，设置它的AutoScroll属性值为True，设置Control属性为TToolBar组件，如果TToolBar组件的尺寸大于TPageScroller组件的尺寸，就会显示一个按钮。　　保存文件，然后按F9键运行程序，在程序运行的过程中，鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分。如果设置TPageScroller组件的AutoScroll属性值为False，那么在程序运行的过程中，只有单击或按钮时，工具栏才会自动滚动以显示工具栏的其他部分。

把Ping命令可视化，用Delphi写成winForm窗口式的程序，一个可以单步执行的Delphi Ping命令操作程序源码，在框内输入IP地址，点击“执行Ping”按钮，将执行一次Ping命令，不能连续执行Ping操作，不过稍加改进就能做出类似Windows一样的Ping程序。try 　　 if pReqData^ = pIPE^.Options.OptionsData^ then 　　 begin 　　 StatusShow.Lines.Add(PChar(PingEdit.Text) '-----' 　　 IntToStr(pIPE^.DataSize) '-----' IntToStr(pIPE^.RTT)); 　　 end; 　　 except 　　 showmessage('没有找到Ip地址!'); 　　 end; 　　 finally 　　 FreeMem(pRevData); 　　 FreeMem(pIPE); 　　 end; 　　 end 　　else 　　 showmessage('请输入Ip地址'); 　　end; 　　// 通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还　　//有很多，都可以通过对Icmp.dll的函数调用来实现。　　procedure TTMyPing.FormCreate(Sender: TObject); 　　var 　　 hICMPdll: HMODULE; 　　begin // Load the icmp.dll stuff 　　 WSAStartup(2,WSAData); 　　 hICMPdll := LoadLibrary('icmp.dll'); 　　 @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); 　　 @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle'); 　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho'); 　　 hICMP :=IcmpCreateFile; 　　 StatusShow.Text := ''; 　　 StatusShow.Lines.Add('目的IP地址-----字节数----返回时间(毫秒)'); 　　end; 　　// 接下来，就要进行如下所示的Ping操作的实际编程过程了。

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章