How do I stop windows from responding to a DBEdit Box right click?

[bntadams]

I have a DBEdit box that is being populated by a date in a database and I am using the OnContextPopup Event to Display a message about the dates that are able to be entered when the user RIGHT CLICKS inside the DBEdit Box.

My problem is this, although the message displays just fine windows pops up the standard gray message box that is used to cut, copy, paste, select all, etc..... This is an unwanted side effect of right clicking the DBEdit box and I want to know if there is a way to disable this from happening or if there is a way to return control back to my form almost instantaneously once the windows edit box is displayed? When I click the form the message goes away. Any help appreciated! Thanks for your time.

[dachyon]

Not sure if this will help or not :-
<tt><cb>
procedure TForm1.DBEdit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
showmessage('popup menu');
handled := true;
end;
</cb></tt>

If you set the handled property to true, the message stops here, and does not get propagated to the default context menu handler.


<cb>Dachyon</cb>