★★我是楼主★★ to:rwdx(任我独行之浪迹天涯) 这不是用哪种方法查的问题,请看下面的举例: procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//WS_EX_TOOLWINDOW在Delphi6下按F1能查到在Delphi7下却查不到 showmessage(inttostr(application.Handle)); end;procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if msg.message = WM_WINDOWPOSCHANGED then //WM_WINDOWPOSCHANGED在Delphi6下按F1能查到在Delphi7下却查不到 begin messagebeep(mb_ok); if msg.hwnd = application.Handle then begin //messagebeep(mb_ok); handled := true; end; end; 你们试试再说!!!!!!!
这个函数。
可能不是D7的问题吧。
其他战友的呢?
to:rwdx(任我独行之浪迹天涯)
这不是用哪种方法查的问题,请看下面的举例:
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//WS_EX_TOOLWINDOW在Delphi6下按F1能查到在Delphi7下却查不到
showmessage(inttostr(application.Handle));
end;procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if msg.message = WM_WINDOWPOSCHANGED then //WM_WINDOWPOSCHANGED在Delphi6下按F1能查到在Delphi7下却查不到
begin
messagebeep(mb_ok);
if msg.hwnd = application.Handle then
begin
//messagebeep(mb_ok);
handled := true;
end;
end;
你们试试再说!!!!!!!