高手请进,怎样让动态创建的组件如edit响应事件处理?不够加分,急 动态创建的edit,怎样能够让它响应mousemove事件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationusesCommCtrl;{$R *.dfm}procedure TForm1.MyEditMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin with (Sender as TEdit) do Text := Text + '*';end;procedure TForm1.Button1Click(Sender: TObject);begin with TEdit.Create(Self) do begin Parent := Self; Top := 100; Left := 100; OnMouseMove := MyEditMouseMove; end;end;end. up注意procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);的声明位置 delphi ,号 分离内容问题 如何模拟键盘按健-100分 Thread Error: 拒绝访问。 (5) VC写的DLL库参数是 unsigned char sd[] 在 delphi该用什么类型对应呢? 大哥们救我,关于OleContainer控制word的问题! 打开一个文件,获得文件的大小,比特位大小和KByte? 谢谢 各位帮帮我!关于InputBox! 如何为自己的软件做可以换的面板呢?就象Netscape 6.2 那种! 拨号连接成功 后会触发事件吗?应当如何捕捉该事件? DBF数据库不能物理删除记录? 向高手请教! 怎么新开窗口?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses
CommCtrl;
{$R *.dfm}procedure TForm1.MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with (Sender as TEdit) do
Text := Text + '*';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create(Self) do
begin
Parent := Self;
Top := 100;
Left := 100;
OnMouseMove := MyEditMouseMove;
end;end;end.
注意
procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
的声明位置