procedure TForm1.btn1Click(Sender: TObject);
begin
close;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
postmessage(btn1.Handle,bn_clicked,0,1);
end;
begin
close;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
postmessage(btn1.Handle,bn_clicked,0,1);
end;
解决方案 »
- 我電腦的window media play 不能播DVD
- 自己写的一个小工具,将SqlServer内的表数据导出为Sql脚本文件
- FS,这下你完蛋了吧
- 菜鸟的问题但又没人回答!在线等待急呀?!!!!!!!!!!!!!!
- 关于引入图片的问题
- 如何将dbgrid中某列设为可以编辑状态而其他列为不可编辑状态?????????????菜哈??
- 头痛了!帮帮忙。
- 现在找个DELPHI工作至少要什么样的水平才行呢?我现在可以编扫雷行吗,啥叫独立编程
- 一个sql 的问题
- 文本文件取操作的问题!急!急!急!
- 如何在sqlserver中创建一个数据库?
- TcpClient.Sendln()这个东西怎么用?在线等待
procedure TMainForm.WMClose(var Msg: TMessage);
begin
showmessage('sdfsdsdfsdf');
inherited;
end;
還有如上截取窗體消息也沒有成功