一个初学者的问题.(50分)

阿汀 · 1999-12-01

我在我的主窗体中用CreateWindow函数创建了一个ClassName为'EDIT' 的Child window,现在我想为该Child window 写一个按键事件处理程 序(WM_KeyDown),例如：我按F1,使其字体颜色变为红色等等，我该如 何写程序，最好把语句写出来，Thank you very much!

pwpengwei · 1999-12-02

ask to cakk

wgzhang · 1999-12-02

初学者真厉害,今后一定前程无限.

Fencer · 1999-12-02

已经有的组件最好不要用CreateWindow建立，这样建立的控件只能用Api函数 去更改它的属性太麻繁。除非有些Delphi没有可视化的控件如Ip地址编辑框等我 建议最好不要用CreateWindow建立。

郑宇轩 · 1999-12-02

cAkk · 1999-12-02

问我?? 我说过我会吗?

liuge · 1999-12-02

procedure TForm1.MyOnMessage(var Msg: TMsg; var Handled: Boolean) ; begin   if msg.message=256 then //有键按下   begin   //.....    if msg.wParam=112 then //F1    begin      //...    end;    if msg.wParam=113 then //F2    begin      //...    end;    //...   end;   if msg.message=256 then ////有键放开   begin   //.....    if msg.wParam=112 then //F1    begin      //...    end;    if msg.wParam=113 then //F2    begin      //...    end;    //...   end; end; 在form的OnCreate事件里：   application.OnMessage:=MyOnMessage;

guangmin · 1999-12-02

向你推荐西蒙与殊斯特公司出版的DELPHI自学书籍，你的问题在上边都有。

cAkk · 1999-12-02

同意Fencer. 这样一来,所有的操作都要用API来完成,烦死了,比如你设置个字体颜色都很麻烦! 既然是你自己的程序,为什么不用现成的东西?

cAkk · 1999-12-02

这个问题已经有头绪,请等待... 提示一下: 用createwindow创建的window,你必须先子类化一个新的子类出来, 然后将窗口定义成该子类,然后用setwiondowlong来设置它的wndproc.最后在 wndproc里面处理按键消息.

amo · 1999-12-02

不用这么复杂，这样也可以，不过怎么设置字体颜色不太清楚

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }      procedure mymessage(var msg:TMsg;var handled:boolean);   end; var   Form1: TForm1;   hb: hwnd; implementation {$R *.DFM} var   oldmessage:TMessageEvent; procedure tform1.mymessage(var msg:TMsg;var handled:boolean); begin   if @oldmessage<>nil then     oldmessage(msg,handled);   if msg.hwnd=hb then   begin     if msg.message=WM_KEYDOWN then     begin       if msg.wParam=VK_F1 then       begin         msg.wParam:=integer('2'); //        handled:=true;       end;     end;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   hb:=Createwindow('edit',nil,ws_child or ws_visible or ws_border,                   10,10,200,20,self.handle,                   hmenu(-1),hinstance,nil);   oldmessage:=application.OnMessage;   application.OnMessage:=mymessage; end; end.

Schiesser · 1999-12-02

唉，瞧瞧人家初学者，再看看你自己。唉！

Liu JZX · 1999-12-02

下面程序可捕获键盘如入，至于快捷键课做出相应的处理 unit Unit4; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm4 = class(TForm)     Button1: TButton;     procedure FormShow(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     OldWndMeth, NewWndMeth: Pointer;   public     { Public declarations }   end; var   Form4: TForm4;   he:Thandle; implementation {$R *.DFM} var   OldWndProc: Pointer = nil; function NewWinProc (Handle: THandle;   Msg, wParam, lParam: LongInt): LongInt; stdcall; begin   if Msg = wm_keydown then   begin     Beep;     SetWindowText (Handle,       PChar (Format (' %s', [char(lParam)])));   end;   // pass call to old window proc   Result := CallWindowProc (OldWndProc, Handle,     Msg, wParam, lParam); end; procedure TForm4.FormShow(Sender: TObject); begin   he:=createwindow('edit','edit',ws_border or ws_visible or ws_child,10,10,   100,40,handle,0,hinstance,0); end; procedure TForm4.Button1Click(Sender: TObject); begin   OldWndProc := Pointer (SetWindowLong     (he, gwl_WndProc, LongInt (@NewWinProc))); end; end.

cAkk · 1999-12-02

既然大家写的差不多了,我就不写了,就是这个意思. (我的代码总有点问题.

)

阿汀 · 1999-12-02

to amo: 但是,我再加一个button,点击后却出现了一个堆栈溢出的错误!是不是处理函数没有 正常返回? procedure TForm1.Button2Click(Sender: TObject); begin   if IsWindow(hb) then   begin     DestroyWindow(hb);   end;   hb1:=Createwindow('edit',nil,ws_child or ws_visible or ws_border,        300,300,200,20,self.handle,         hmenu(-1),hinstance,nil);   oldmessage:=application.OnMessage;   application.OnMessage:=mymessage; end;

kingbb · 1999-12-03

你已不是初学者了!

Liu JZX · 1999-12-03

阿汀： 我的代码如何

amo · 1999-12-03

procedure TForm1.Button2Click(Sender: TObject); begin   if IsWindow(hb) then   begin     DestroyWindow(hb); //*****************************************     application.onmessage:=oldmessage; //*****************************************   end;   hb1:=Createwindow('edit',nil,ws_child or ws_visible or ws_border,        300,300,200,20,self.handle,         hmenu(-1),hinstance,nil);   oldmessage:=application.OnMessage;   application.OnMessage:=mymessage; end; 注意， 如果这样用， 必须加上     application.onmessage:=oldmessage; 因为在你    DestroyWindow(hb); 后，onmessage仍然在用新的onmessage，而hb已经被destroy了。

阿汀 · 1999-12-06

to all:   Thank you for your help, and the answers of amo and Liu JZX were accpted.

一个初学者的问题.(50分)

阿汀

Unregistered / Unconfirmed

pwpengwei

Unregistered / Unconfirmed

wgzhang

Unregistered / Unconfirmed

Fencer

Unregistered / Unconfirmed

郑宇轩

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

liuge

Unregistered / Unconfirmed

guangmin

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

阿汀

Unregistered / Unconfirmed

kingbb

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

阿汀

Unregistered / Unconfirmed

Similar threads