G
Gec
Unregistered / Unconfirmed
GUEST, unregistred user!
下面代码都抓不到lb_gettext
procedure tform1.wndproc(var msg: tmessage);
begin
inherited;
if msg.msg = LB_GETTEXT then showmessage('jinru');
end;
procedure tform1.onappmessage(var msg: tmsg; var handled: boolean);
begin
inherited;
if msg.message = LB_GETTEXT then showmessage('jinru');
end;
procedure TPasswordEdit.wmcommand(var message: twmcommand);
begin
inherited;
showmessage('jinru');
end;
constructor TPasswordEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
procedure tpasswordedit.DefaultHandler(var Message);
begin
inherited;
with TMessage(Message) do
case msg of
LB_GETTEXT: showmessage('jinru8');
end;
end;
procedure TForm1.AHMAppManager1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if msg.message = LB_GETTEXT then
showmessage('jinru');
end;
procedure tform1.wndproc(var msg: tmessage);
begin
inherited;
if msg.msg = LB_GETTEXT then showmessage('jinru');
end;
procedure tform1.onappmessage(var msg: tmsg; var handled: boolean);
begin
inherited;
if msg.message = LB_GETTEXT then showmessage('jinru');
end;
procedure TPasswordEdit.wmcommand(var message: twmcommand);
begin
inherited;
showmessage('jinru');
end;
constructor TPasswordEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
procedure tpasswordedit.DefaultHandler(var Message);
begin
inherited;
with TMessage(Message) do
case msg of
LB_GETTEXT: showmessage('jinru8');
end;
end;
procedure TForm1.AHMAppManager1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if msg.message = LB_GETTEXT then
showmessage('jinru');
end;