[SOLVED] Prevent PopUp from showing

[CM630]

I want to prevent a popup from showing on some conditions.
For example, if a text box is empty.
The code below does not work - “No text” is shown when the test box is empty, but the popup is still shown.
I think I have to set the Popup event to Handled, but I cannot find a way to do it.

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

1. procedure TForm1.PopupMenu1Popup(Sender: TObject);
2. begin
3.   if edit1.Text ='' then
4.   begin
5.     ShowMessage ('No text');
6.     PopupMenu1.Close;
7.   end;
8. end;  

[petevick]

Just set the controls PopupMenu property to nil to not show

[dseligo]

I want to prevent a popup from showing on some conditions.
For example, if a text box is empty.
The code below does not work - “No text” is shown when the test box is empty, but the popup is still shown.
I think I have to set the Popup event to Handled, but I cannot find a way to do it.

What is test box? You mean edit1? You are saying that ShowMessage inside 'if' is executed although edit1.text is empty?
P.S.: Or 'ShowMessage' is not executed, but popup is shown? But you didn't write it like that.

Try this:

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

1. procedure TForm1.PopupMenu1Popup(Sender: TObject);
2. begin
3.   if edit1.Text ='' then
4.   begin
5.     ShowMessage ('No text, length: ' + IntToStr(Length(edit1.Text)));
6.     PopupMenu1.Close;
7.   end;
8. end;  

[CM630]

Just set the controls PopupMenu property to nil to not show

For the given example that sounds easy, but in my case that means too many preliminary checks.

What is test box? You mean edit1?

Yes. https://en.wikipedia.org/wiki/Text_box

You are saying that ShowMessage inside 'if' is executed although edit1.text is empty?
P.S.: Or 'ShowMessage' is not executed, but popup is shown? But you didn't write it like that.

I want to prevent the popup menu from showing in some circumstances.

I have attached a snippet in the first post.

[petevick]

Just set the controls PopupMenu property to nil to not show

For the given example that sounds easy, but in my case that means too many preliminary checks.

then you should have posted your actual code, answers can only be given on what you have posted !!

[dsiders]

I want to prevent a popup from showing on some conditions.
For example, if a text box is empty.
The code below does not work - “No text” is shown when the test box is empty, but the popup is still shown.
I think I have to set the Popup event to Handled, but I cannot find a way to do it.

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

1. procedure TForm1.PopupMenu1Popup(Sender: TObject);
2. begin
3.   if edit1.Text ='' then
4.   begin
5.     ShowMessage ('No text');
6.     PopupMenu1.Close;
7.   end;
8. end;  

Controls derived from TControl have an OnContextPopup event handler. In it, you can use whatever logic you need to enabled or disable the PopupMenu. Including:

Code: [Select]

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := (Edit1.Text = '');
end;


[CM630]

...

Code: [Select]

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := (Edit1.Text = '');
end;


Thanks, it did it!

...then you should have posted your actual code, answers can only be given on what you have posted !!

Here it is, but I am not sure it would be helpful: https://sourceforge.net/p/lazmer/code/HEAD/tree/trunk/controls/wgcursorlegend.pas

[petevick]

Here it is, but I am not sure it would be helpful: https://sourceforge.net/p/lazmer/code/HEAD/tree/trunk/controls/wgcursorlegend.pas

you're not wrong