没分了, 还请教小弟一个问题... 是这样的:我要给form1添加一个OoMouseDown 事件,比如:form1.OnMouseDown := MyMouseDown; //但这样报错了。请问MyMouseDown事件应该怎么写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin onMouseDown := mouseDown;end;procedure TForm1.mouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin//end;end. active form生成OCX后发布问题? 谁有 XLSReadWriteII 控件的注册版(含源代码)? 菜问题 关于窗口调用 100分在线求解!!!!!!!!!!!!!!!!!!!!!!!! 数据类型的转换问题。 那一位好心人,帮一帮忙,关于ado 各位,你们是如何学好delphi的?高分求救100 紧急求救! 一个奇怪的问题!SOS!! embarcadero rad.studio XE4可以下载了 请问如何对adoquery查询的数据集进行数据删除?请高手耐心看我的意思!谢谢!一百分求教!! 求高人指点!DELPHI开发XML的问题!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private
{ Private declarations } procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
onMouseDown := mouseDown;
end;procedure TForm1.mouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//
end;end.