I want users to be able to select and type in a text control, or
alternatively to right-click in the control and select a file using a
TOpenDialog. I've put instructions to execute the TOpenDialog in the
OnMouseDown event handler, like this:
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
end;
This works fine ... unless the form is positioned so that the cursor
which clicks on the control happens to be in the same part of he screen
which will be occupied by the OpenDialog when it is created. In that
case, the OpenDialog pops up a menu as if I had just right-clicked on
the OpenDialog itself.
To see the effect, create a new application, put a TEDit and a
TOpenDialog on the form, and the code above in the event handler. Move
the form around until the TEdit is underneath the OpenDialog when it
shows up.
Any ideas how I can suppress the popping-up of the popup?
Many thanks,
Rob
--
Rob Cameron
Lattice Networks Limited
tel: 01923 263 143
mob: 078 3434 8153
email: [EMAIL PROTECTED]
web: www.lattice-net.co.uk
-------------------------------
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.362 / Virus Database: 267.12.8/162 - Release Date: 05/11/2005
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
