Mousemove schlägt bei Opendialog durch

[skoschke]

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:

Image.enabled := false;
if opendialog.execute then
....
end;
//damit Mausevents verarbeitet werden
Application.processmassages;
Image.enabled := true;

und

Delphi-Quellcode:

procedure TFormMain.ImageMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if not TImage(Sender).Enabled then
    exit;
...

Kein Erfolg, die Mopusemove's kommen weiter an und zeichnen

Wie komme ich weiter?

Ciao
Stefan

[Frickler]

Vor "OpenDialog":
OnMouseMove := nil;

Nach "OpenDialog":
OnMouseMove := FormMouseMove;

[peterbelow]

Zitat von skoschke:

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;

[skoschke]

Zitat:

Vor "OpenDialog":
OnMouseMove := nil;

Nach "OpenDialog":
OnMouseMove := FormMouseMove;

wirkt leider genau so wenig wie mein enabled...

Ciao
Stefan

[skoschke]

Zitat von peterbelow:

Zitat von skoschke:

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;

Wann soll das aufgerufen werden?
Nach dem Opendialog.execute bringt es keinen Effekt!

Ciao
Stefan

[newIndy]

'...Auf einem Formular liegt ein TImage welches per Mousemove Zeichenoperationen ausführt...'

Wie sieht deine Methode zum Zeichnen aus?

[peterbelow]

Zitat von skoschke:

Zitat von peterbelow:

Zitat von skoschke:

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;

Wann soll das aufgerufen werden?
Nach dem Opendialog.execute bringt es keinen Effekt!

Dann ist deine Diagnose nicht korrekt, oder deine Zeichenroutine prüft nicht, ob der Mausknopf eigentlich gedrückt ist oder nicht und zeichnet daher auch, wenn das nicht der Fall ist. Wenn Du EmptyMouseQueue aufgerufen hast kann das Problem nur von mouse messages stammen, die danach erzeugt werden.