[Solved] Custom PopupMenu

[KodeZwerg]

I am unsure if I understood that On(de)Activate problem, cant you:

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

1. FOldActivate := TForm(FOwner).OnActivate;
2. FOldDeactivate := TForm(FOwner).OnDeactivate;
3. TForm(FOwner).OnActivate := nil;
4. TForm(FOwner).OnDeactivate := nil;
5.  

on creation before "Visible := True" ?

[aydın]

Because we have a custom combobox in bgracontrols, that has exactly this issue...

We're using a form, with a listbox.

I believe this could possibly be solved with unfocusable forms.

An on-screen keyboard handles this quite effectively.

[lainz]

I am unsure if I understood that On(de)Activate problem, cant you:

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

1. FOldActivate := TForm(FOwner).OnActivate;
2. FOldDeactivate := TForm(FOwner).OnDeactivate;
3. TForm(FOwner).OnActivate := nil;
4. TForm(FOwner).OnDeactivate := nil;
5.  

on creation before "Visible := True" ?

It didn't work.

[alpine]

I am unsure if I understood that On(de)Activate problem, cant you:

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

1. FOldActivate := TForm(FOwner).OnActivate;
2. FOldDeactivate := TForm(FOwner).OnDeactivate;
3. TForm(FOwner).OnActivate := nil;
4. TForm(FOwner).OnDeactivate := nil;
5.  

on creation before "Visible := True" ?

It didn't work.

It didn't perhaps of the FOwner. Try that way, before "Visible := True" in TBCComboBox.ButtonClick:

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

1.     if Assigned(FOnDropDown) then FOnDropDown(self);
2.  
3.     PF := GetParentForm(Self, False);
4.     FOldActivate := PF.OnActivate;
5.     FOldDeactivate := PF.OnDeactivate;
6.     PF.OnActivate := {@}ParentReactivate;
7.     PF.OnDeactivate := Nil;
8.  
9.     FForm.Visible := True;  

With:

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

1. procedure TBCComboBox.ParentReactivate(Sender: TObject);
2. var
3.   PF: TCustomForm;
4. begin
5.   PF := GetParentForm(Self, False);
6.   PF.OnActivate := FOldActivate;
7.   PF.OnDeactivate := FOldDeactivate;
8. end;

[KodeZwerg]

Yes, I was meaning it in a theoretical way spoken, had no idea about actual code 
Store old event, turn events off, make own things visible, before leaving restore old etc ...

[lainz]

I am unsure if I understood that On(de)Activate problem, cant you:

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

1. FOldActivate := TForm(FOwner).OnActivate;
2. FOldDeactivate := TForm(FOwner).OnDeactivate;
3. TForm(FOwner).OnActivate := nil;
4. TForm(FOwner).OnDeactivate := nil;
5.  

on creation before "Visible := True" ?

It didn't work.

It didn't perhaps of the FOwner. Try that way, before "Visible := True" in TBCComboBox.ButtonClick:

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

1.     if Assigned(FOnDropDown) then FOnDropDown(self);
2.  
3.     PF := GetParentForm(Self, False);
4.     FOldActivate := PF.OnActivate;
5.     FOldDeactivate := PF.OnDeactivate;
6.     PF.OnActivate := {@}ParentReactivate;
7.     PF.OnDeactivate := Nil;
8.  
9.     FForm.Visible := True;  

With:

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

1. procedure TBCComboBox.ParentReactivate(Sender: TObject);
2. var
3.   PF: TCustomForm;
4. begin
5.   PF := GetParentForm(Self, False);
6.   PF.OnActivate := FOldActivate;
7.   PF.OnDeactivate := FOldDeactivate;
8. end;

Tested this new way and didn't work too. The background form loses focus and the focus goes to the new visible form.

[alpine]

Tested this new way and didn't work too. The background form loses focus and the focus goes to the new visible form.

I'm not sure what do you expect to happen. That workaround is not to fire OnDeactivate/OnActivate events on the parent form when opening/closing the pulldown (because that is presumed as the potential problem).  It is not to stop the form of losing its focus. There is no way your listbox to work without a focus, i.e. it should receive it.

FYI TDateEdit, TDateTimePicker, etc. all trigger OnDeactivate/OnActivate events in the same way as TBCComboBox.

[lainz]

Tested this new way and didn't work too. The background form loses focus and the focus goes to the new visible form.

I'm not sure what do you expect to happen. That workaround is not to fire OnDeactivate/OnActivate events on the parent form when opening/closing the pulldown (because that is presumed as the potential problem).  It is not to stop the form of losing its focus. There is no way your listbox to work without a focus, i.e. it should receive it.

FYI TDateEdit, TDateTimePicker, etc. all trigger OnDeactivate/OnActivate events in the same way as TBCComboBox.

I quote aydin that has the same idea as me

Because we have a custom combobox in bgracontrols, that has exactly this issue...

We're using a form, with a listbox.

I believe this could possibly be solved with unfocusable forms.

An on-screen keyboard handles this quite effectively.

I think the idea was clear we was talking about that not about events getting fired
...

[aydın]

I found this, but it's not working at all:

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

1. ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);

If this doesn't work, what's its purpose?

[alpine]

Because we have a custom combobox in bgracontrols, that has exactly this issue...

We're using a form, with a listbox.

I believe this could possibly be solved with unfocusable forms.

An on-screen keyboard handles this quite effectively.

I think the idea was clear we was talking about that not about events getting fired
...

That is an idea for a solution. Please, specify the problem for the solution.
And what is the definition of "unfocusable form", BTW?

[lainz]

That is an idea for a solution. Please, specify the problem for the solution.
And what is the definition of "unfocusable form", BTW?

That's the problem

The reason I didn't use a form in the popup is because the main form loses its activity.
I think there were a few WinAPI methods for this, but WinAPI doesn't always work properly.

[alpine]

What is "activity" then?

[lainz]

What is "activity" then?

I think he means focus.

Edit: It's easy to see and understand. Drop a TBCComboBox into a form, add a few items with the object inspector. Run the application. When the popup shows, the main form looses it focus.

Unlike aydin says, what happens with a virtual keyboard like the one that comes with windows, you open it and the focus remains in the main form.

[KodeZwerg]

I found this, but it's not working at all:

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

1. ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);

If this doesn't work, what's its purpose?

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

1. procedure TForm2.CreateParams(var Params: TCreateParams);
2. begin
3.   inherited CreateParams(Params);
4.   Params.ExStyle := Params.ExStyle or WS_EX_NOACTIVATE;
5. end;

but somehow freepascal or lcl is working against such mechanism....

what i try to say, the window must be created with that flag, you can not force it that way AFAIK

[aydın]

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

1. procedure TForm2.CreateParams(var Params: TCreateParams);
2. begin
3.   inherited CreateParams(Params);
4.   Params.ExStyle := Params.ExStyle or WS_EX_NOACTIVATE;
5. end;

but somehow freepascal or lcl is working against such mechanism....

what i try to say, the window must be created with that flag, you can not force it that way AFAIK

I don't know where I went wrong.

No matter what I do, the popup takes the focus.