Mousemove schlägt bei Opendialog durch
Hallo,
der Betreff ist Sch... aber wie soll ich das kurz beschreiben: Auf einem Formular liegt ein TImage welches per Mousemove Zeichenoperationen ausführt. Es gibt ein Mainmenu welches einen Opendialog öffnet um Dateien zu laden. Nun ist es mir mehrfach vorgekommen, dass beim Öffnen einer Datei bereits etwas gezeichnet wird, und zwar wenn man den Opendialog nicht mit OK benutzt sondern auf die gewünschte Datei doppelklickt. Nun habe ich als erstes das Image disabled, während das Laden erfolgt, ohne Erfolg, der Mousemove-Event wird abgebrochen wenn Image disabled, ohne Erfolg. Als letztes die Openroutine erweitert:
Delphi-Quellcode:
und
Image.enabled := false;
if opendialog.execute then .... end; //damit Mausevents verarbeitet werden Application.processmassages; Image.enabled := true;
Delphi-Quellcode:
Kein Erfolg, die Mopusemove's kommen weiter an und zeichnen
procedure TFormMain.ImageMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); begin if not TImage(Sender).Enabled then exit; ... Wie komme ich weiter? Ciao Stefan |
AW: Mousemove schlägt bei Opendialog durch
Vor "OpenDialog":
OnMouseMove := nil; Nach "OpenDialog": OnMouseMove := FormMouseMove; |
AW: Mousemove schlägt bei Opendialog durch
Zitat:
Delphi-Quellcode:
{!
<summary> Remove all mouse messages from the calling thread's message queue.</summary> } procedure EmptyMouseQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do ; end; |
AW: Mousemove schlägt bei Opendialog durch
Zitat:
Ciao Stefan |
AW: Mousemove schlägt bei Opendialog durch
Zitat:
Nach dem Opendialog.execute bringt es keinen Effekt! Ciao Stefan |
AW: Mousemove schlägt bei Opendialog durch
'...Auf einem Formular liegt ein TImage welches per Mousemove Zeichenoperationen ausführt...'
Wie sieht deine Methode zum Zeichnen aus? |
AW: Mousemove schlägt bei Opendialog durch
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:30 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz