delphi7从入门到精通的例子,点击窗体在点击处添加按钮,下面是代码,和书上源例的代码一模一样,通过编译,但运行点击窗体毫无反应,而源代码的工程文件却能添加上,求指教。
unit CreateCF;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}uses
StdCtrls;procedure TForm1.FormMouseDown(
Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Btn: TButton;
begin
Btn := TButton.Create (Self);
Btn.Parent := Self;
Btn.Left := X;
Btn.Top := Y;
Btn.Width := Btn.Width + 50;
Btn.Caption := Format ('Button at %d, %d', [X, Y]);
end;end.
解决方案 »
- 用DELPHI连接MYSQL,向MYSQL中插入数据的中文问题
- 问个多线程小问题
- 怎样以十六进制代码打开文件并导出给定地址的值
- ComboBox 的 items 的内容是 'AAAAAAA 1001' 的格式,而要显示出来的是 AAAAAAA。
- 用delphi 编写的程序发送邮件的怪现象
- 字符串处理???紧急
- CORBA服務器編譯的問題
- 问一个小问题:网上下载的控件我安装了,但现在不想要了,怎么将它完整的删除呀????(请指教!绝对给分!)
- 关于窗体的问题!谢谢!!!
- 我如何在button上调用上面的那个函数
- C++ To Delphi
- '$ is not a valid integer value怎么解决
begin
Self.OnMouseDown := FormMouseDown;//加上这句,或在事件属性上关联下就可以了。
end;你没有关联FormMouseDown事件。
Btn := TButton.Create (Self);
Btn.Parent := Self;
case5166所说的Self.OnMouseDown := FormMouseDown其中的Self是将FormMouseDow过程与OnMouseDown事件关联起来吗
Self.OnMouseDown := FormMouseDown;和手动添加窗口的OnMouseDown事件是一个道理,只是一个是在代码里面关联,一个是在设计期关联。