一个模式窗口显示时,当鼠标在窗口外点击时,模式窗口自动关闭,FORM上放有全部显示的PANEL组件,现全部分数献上,不够有分时补贴给(现可补贴110分) (20

ryanlee · 2003-07-18

一个模式窗口显示时,当鼠标在窗口外点击时,模式窗口自动关闭,FORM上放有全部显示的PANEL组件,现全部分数献上,不够有分时补贴给(现可补贴110分) (20分) 我有一个模式窗口显示在主窗口之上,当鼠标在模式窗口外点击时,模式窗口自动关闭, (FORM上有全部占据显示的PANEL),请高手帮帮忙,谢谢! 分数不够以后我有分时加上. 我现积有110,可以另外开贴给,请帮帮我,急啊!!!!!!1

szgh · 2003-07-19

panel.OnMouseDown中form.close

ryanlee · 2003-07-19

SORYY,我是在模式窗口外点击,如你说的只在窗口内点击有效,而非是在窗口内. 谢谢你的回答!

yyanghhong · 2003-07-19

以前写的, unit uRSIPopupForm; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls {$IFDEF DEBUG}   , dbugintf {$ENDIF DEBUG}   ,Buttons, ExtCtrls, ActnList, Contnrs   ; const   gcs_ActionParam = 'action';   gcc_ActionCommand = #3; type   TRSIPopupForm = class(TForm)     pan_base: TPanel;     Pan_Title: TPanel;     btn_Toggle: TSpeedButton;     btn_Exit: TSpeedButton;     Label1: TLabel;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Pan_TitleResize(Sender: TObject);     procedure btn_ExitClick(Sender: TObject);     procedure Pan_TitleMouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure FormShow(Sender: TObject);   Private     //Capture     FFormHandle : THandle;     FCapturing : boolean;     FNCACTIVATE : boolean;     FShowing : boolean ;     FTimer : TTimer;     FRect : TRECT;     FLastHitTestTime : integer;     FHandlerList : TObjectList;     function InWindows:boolean;     function InWinControl:boolean;     procedure InitAllControlMessageHandler(pvo_ParentControl : TControl);     procedure InitControlMessageHandler(pvo_HandledControl : TControl);     procedure FreeControlMessageHandler;     procedure ResetNCActivate;     procedure TimerOnTimer(Sender: TObject);     procedure SetCapturing(Value : boolean)  ;     Property Capturing : boolean read FCapturing write SetCapturing;   private     FToggle : boolean ;     FPopup: boolean;   Protected     procedure WndProc(var Message: TMessage); override;     procedure CreateParams(var Params : TCreateParams); override;     procedure ShowFormByName(FormName : string);   public     { Public declarations }   published     property Popup : boolean read FPopup write FPopup;     property Toggle : boolean read FToggle write FToggle;   end;   TRSIPopupFormClass = Class of TRSIPopupForm;   TControlMessageHandler = class(TObject)   private     FParentForm : TRSIPopupForm;     FControl : TControl;     FOldWindowProc : procedure(var Message: TMessage) of Object;     procedure NewWindowProc(var Message: TMessage);   end; var   RSIPopupForm: TRSIPopupForm; implementation uses   ShlObj, ComObj, ActiveX   {$IFDEF DEBUG}     , DebugDLL   {$ENDIF DEBUG}   ; {$R *.dfm} //Mouse message routine procedure TControlMessageHandler.NewWindowProc(var Message: TMessage); begin {$IFDEF DEBUG}   if (inttohex(Message.MSG, 4) <> 'B03F') and      (inttohex(Message.MSG, 4) <> '0200') and      (inttohex(Message.MSG, 4) <> '0020') and      (inttohex(Message.MSG, 4) <> '0084') then     SetTracemessages(true)   else     SetTracemessages(false);  //   DebugMessage('Control ', Message.Msg); {$ENDIF DEBUG}   if FParentForm.FPopup then     case Message.Msg of    //       WM_SETCURSOR, CM_HITTEST:       begin         FParentForm.FLastHitTestTime := DateTimeToTimeStamp(now).time;         FParentForm.Capturing := false;       end;       WM_MOUSEMOVE:       begin         FParentForm.FLastHitTestTime := DateTimeToTimeStamp(now).time;         FParentForm.Capturing := false;         if FParentForm.FNCACTIVATE and not FParentForm.Capturing and FParentForm.FShowing then         begin          FParentForm.FNCACTIVATE := false;          FParentForm.ResetNCActivate;         end;       end;     end;    // case   FOldWindowProc(Message); end; function TRSIPopupForm.InWindows:boolean; var   lvo_Pos : TPoint; begin   GetCursorPos(lvo_Pos);   result :=  PtInRect(Bounds(FRect.Left, FRect.Top,                     FRect.Right - FRect.Left,                     FRect.Bottom - FRect.Top),                     lvo_Pos) ; end; function TRSIPopupForm.InWinControl:boolean; var   lvo_Pos : TPoint; begin   result := false;   GetCursorPos(lvo_Pos);   if not PtInRect(Bounds(FRect.Left, FRect.Top,                     FRect.Right - FRect.Left,                     FRect.Bottom - FRect.Top),                     lvo_Pos) then exit;   result := FindVCLWindow(lvo_Pos) <> self; end; procedure  TRSIPopupForm.ResetNCActivate; var   lvo_pos : TPoint; begin   GetCursorPos(lvo_pos);   SetCursorPos(FRect.right, FRect.bottom);   try     mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );     mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );   finally     SetCursorPos(lvo_pos.X, lvo_pos.y);   end; end; procedure TRSIPopupForm.WndProc(var Message: TMessage); var   lvt_CData: TCopyDataStruct;   lvp_MessageContent: PChar;   lvs_ActionName : string;   i: Integer;   lvp_proc: procedure; begin {$IFDEF DEBUG}   if (inttohex(Message.MSG, 4) <> 'B03F') and      (inttohex(Message.MSG, 4) <> '0200') and      (inttohex(Message.MSG, 4) <> '0020') and      (inttohex(Message.MSG, 4) <> '0084') then     SetTracemessages(true)   else     SetTracemessages(false); {$ENDIF DEBUG}   if FPopup then   begin     case Message.Msg of       WM_SETCURSOR, WM_MouseMove:       begin         FLastHitTestTime := DateTimeToTimeStamp(now).time;         Capturing := false;       end;       WM_LButtonDown, WM_RButtonDown:       begin         if (getcapture = FFormHandle) then         begin           PostMessage(FFormHandle, WM_CLOSE, 0, 0);         end;       end;       WM_NCActivate  :       begin         if not boolean(Message.WParam)  then         begin           FNCACTIVATE := true;         end         else         begin           FNCACTIVATE := false;         end;       end;       CM_ShowingChanged :       begin         if FShowing then         begin           FShowing := false;           Capturing := false;           FTimer.enabled := false;           FNCACTIVATE := false;         end;       end;       WM_ShowWindow :       begin         if boolean(Message.WParam) then         begin           FShowing := true ;           FTimer.Enabled := true;         end;       end;     end;   end;   case Message.Msg of     WM_WindowPosChanged  :     begin       GetWindowRect(FFormHandle, FRect);     end;     WM_CopyData:     begin       lvt_CData := TWMCOPYDATA(Message).CopyDataStruct^;       lvp_MessageContent := lvt_CData.lpData;       if lvp_MessageContent[0] <> gcc_ActionCommand then         Exit;       i := 1;       lvs_ActionName := '';       while lvp_MessageContent <> #0 do       begin         lvs_ActionName := lvs_ActionName + lvp_MessageContent;         Inc(i);       end;       if lvs_ActionName = '' then         exit;       lvp_proc := MethodAddress(lvs_ActionName + 'Execute');       if Assigned(lvp_proc) then         lvp_proc;     end;   end;   inherited WndProc(Message); end; procedure TRSIPopupForm.InitAllControlMessageHandler(pvo_ParentControl : TControl); var   I: Integer; begin     if pvo_ParentControl.ComponentCount > 0 then     begin        for I := 0 to pvo_ParentControl.ComponentCount -1  do    // Iterate        begin          if not (pvo_ParentControl.Components is TControl) then  break;          InitControlMessageHandler(TControl(pvo_ParentControl.Components));          InitAllControlMessageHandler(TControl(pvo_ParentControl.Components));        end;    // for     end;    // while end; procedure TRSIPopupForm.InitControlMessageHandler(pvo_HandledControl : TControl); var   lvo_Handler : TControlMessageHandler  ; begin   lvo_Handler :=  TControlMessageHandler.create;   with lvo_Handler do   begin     FOldWindowProc := pvo_HandledControl.WindowProc;     pvo_HandledControl.WindowProc := NewWindowProc;     FControl :=  pvo_HandledControl;     FParentForm := self;   end;   FHandlerList.Add(lvo_Handler); end; procedure TRSIPopupForm.FreeControlMessageHandler; var   I: Integer; begin   for I := FHandlerList.Count-1 downto 0 do    // Iterate   begin     TControlMessageHandler(FHandlerList).FControl.WindowProc := TControlMessageHandler(FHandlerList).FOldWindowProc;     TControlMessageHandler(FHandlerList).FOldWindowProc := nil;     TControlMessageHandler(FHandlerList).FControl := nil;     TControlMessageHandler(FHandlerList).FParentForm := nil;     TControlMessageHandler(FHandlerList).free;   end;    // for end; procedure TRSIPopupForm.SetCapturing(Value : boolean); begin       if FCapturing = Value then exit;   if Value then   begin     SetCapture(FFormHandle);     FCapturing := True;   end   else   begin     ReleaseCapture;     FCapturing := false;   end; end; //From routine procedure TRSIPopupForm.CreateParams(var Params : TCreateParams); begin   inherited CreateParams(Params);   Params.Style := WS_POPUP;   Params.ExStyle := Params.ExStyle OR  WS_EX_TOPMOST ;   Params.Style := WS_THICKFRAME OR WS_POPUP OR WS_BORDER ; //   Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW ; //   Params.ExStyle := Params.ExStyle AND NOT WS_CAPTION  ; //   Params.ExStyle := Params.ExStyle OR WS_EX_OVERLAPPEDWINDOW ; //   Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT; end; procedure TRSIPopupForm.TimerOnTimer(Sender: TObject); begin   FTimer.enabled := false;   try     if (abs(DateTimeToTimeStamp(now).time - FLastHitTestTime) < 150) then     begin       Capturing := false;       exit;     end;     if InWindows then exit;     Capturing := true;   finally     FTimer.enabled := true;   end; end; procedure TRSIPopupForm.FormCreate(Sender: TObject); var   i: Integer;   lvs_ActionName : string;   lvp_proc: procedure; begin   visible := false;   left := screen.Width + 50;     FToggle := false;   FPopup := true;   FFormHandle := self.Handle;   //create timer component   FTimer  := TTimer.create(nil);   FTimer.interval := 100;   FTimer.OnTimer := TimerOnTimer;   FLastHitTestTime := DateTimeToTimeStamp(now).time;   FTimer.Enabled := Popup;   //Add mouse handler to all of controls   FHandlerList:= TObjectList.create;   InitAllControlMessageHandler(self);   //Checking execution parameter   for i := 1 to ParamCount do   begin     if copy(LowerCase(ParamStr(i)), 2, length(gcs_ActionParam)) =  gcs_ActionParam then     begin        lvs_ActionName := trim(copy(LowerCase(ParamStr(i)), length(gcs_ActionParam) + 3, length(ParamStr(i))));        break;     end;   end;   if lvs_ActionName = '' then     exit;   //Invoking the action according the execution parameter   lvp_proc := MethodAddress(lvs_ActionName + 'Execute');   if Assigned(lvp_proc) then     lvp_proc; end; procedure TRSIPopupForm.FormDestroy(Sender: TObject); begin   FreeControlMessageHandler; //  FHandlerList.free;    //NTC   FTimer.free; end; procedure TRSIPopupForm.ShowFormByName(FormName : string); var   lvo_FormClass : TPersistentClass;   lvo_Form :TForm; begin   try     lvo_FormClass := FindClass(FormName) ;   except     ShowMessage(FormName + ' is not existed');     exit;   end;   if not Assigned(lvo_FormClass) then exit;   lvo_Form := TFormClass(lvo_FormClass).Create(Application);   lvo_Form.Show;   Application.ProcessMessages;   PostMessage(FFormHandle, WM_CLOSE, 0, 0); end; procedure TRSIPopupForm.Pan_TitleResize(Sender: TObject); begin   Btn_Toggle.Left := Pan_Title.Width - 35;   Btn_Exit.Left := Pan_Title.Width - 20; end; procedure TRSIPopupForm.btn_ExitClick(Sender: TObject); begin   PostMessage(FFormHandle, WM_Quit, 0, 0); end; procedure TRSIPopupForm.Pan_TitleMouseDown(Sender: TObject;   Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin  if Button <> mbRight then  begin  end; end; procedure TRSIPopupForm.FormShow(Sender: TObject); begin   btn_Toggle.Visible :=  FToggle ; end; end.

ryanlee · 2003-07-20

接受答案了.

一个模式窗口显示时,当鼠标在窗口外点击时,模式窗口自动关闭,FORM上放有全部显示的PANEL组件,现全部分数献上,不够有分时补贴给(现可补贴110分) (20

ryanlee

Unregistered / Unconfirmed

szgh

Unregistered / Unconfirmed

ryanlee

Unregistered / Unconfirmed

yyanghhong

Unregistered / Unconfirmed

ryanlee

Unregistered / Unconfirmed

Similar threads