event deactivate component

[mikutu]

Have select a component (TEditButton), must execute a specific action when click outside the component. I use events onExit and onDeactivateForm (for click outside form). The problem event onExit is that no work on click mainMenu, toolButton, panel. How can I solve the problem?

Project crossplatfom - windows, linux.

[mikutu]

In TComboBox OS send message CBN_CLOSEUP by close popup list. It is possible to use CBN_CLOSEUP  by my problem?

[jamie]

Hmm, does Linux widgets support the non client mouse click messages ?

LM_NCLBUTTONUP for example in the message loop ?

 If so you can simply hook the message loop and decide what to do with it there.

[Thaddy]

Hmm, does Linux widgets support the non client mouse click messages ?

Which linux widget set are you talking about? There are quite a few....

[jamie]

How many could there be ? really

gtk2,3, qt etc..

I am not sure where the message delivery comes from with Linux apps, maybe it makes not difference with the widgets but back to the original question, does linux apps via Lazarus support these messages?

 if it does then you could hook into them most likely in the Application class

[Thaddy]

gtk2,3, qt etc..

Gtk 1,2,3,4,5, Qt 1,2,3,4,5 and quite some more..... even plain X-windows can do...
(Not to mention Windows 1.2.3,3X, NT etc...also all differ... Android? IOS?
Impossible to answer without further information. Period.

[jamie]

With windows I can install a Hook to monitor the keyboard and moust while in the app..

its a simple matter..

[mikutu]

Thank you jamie.
I use TApplicationProperties.onUserInput hook event mouse button down. Problem is event not work on caption form, border form, main menu.
I find solution by MS Windows

Code: Pascal  [Select][+][-]

1. var
2.   PrevWndProc: WNDPROC;  
3. ...
4. procedure TForm1.FormCreate(Sender: TObject);
5. begin
6.   PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle, GWL_WNDPROC, PtrInt(@WndCallback)));
7. end;  
8. ...
9. function WndCallback(HWnd: HWND; Msg: UINT; WParam: WParam; LParam: LParam):LRESULT; stdcall;
10. begin
11.   if (((Msg = WM_NCLBUTTONDOWN) or (Msg = WM_NCLBUTTONUP)) and ((wParam = HTCAPTION) or (wParam = HTMENU))) or
12. (Msg = WM_INITMENUPOPUP) then begin
13.     ...
14.   end;
15.   Result := CallWindowProc(PrevWndProc, HWnd, Msg, WParam, LParam);
16. end;

I don't know how to implement this in Linux.

You still need to track the activation of other forms in code main form. How to do this?

[winni]

Hi

Try this:

Code: Pascal  [Select][+][-]

1. procedure TForm1.MyInput(Sender: TObject; Msg: Cardinal);
2. begin
3.     self.caption := IntToStr(Mouse.CursorPos.X)+':'+IntToStr(Mouse.CursorPos.Y);
4.     if MSG= 513  //WM_LBUTTONDOWN
5.               then  showMessage ('Left Mouse Button Down');
6. end;
7.  
8. procedure TForm1.FormCreate(Sender: TObject);
9. begin
10.  Application.AddOnUserInputHandler(@MyInput, True);
11.  end;                                            
12.  
13.  

Winni

[mikutu]

Application.AddOnUserInputHandler and TApplicationProperties.onUserInput do the same thing. I just created it in design mode, and you're in the code. About the problems of this handler I wrote above.