Open/Save Dialog & Mouse Move event

[megachuhancer]

Столкнулся с такой проблемой: открываю диалог, двойным кликом выбираю файл, и всё бы хорошо только вот если под местом клика в этот момент был какой-то компонент, для него вызывается MouseMove. И из-за этого разваливается вообще всё, т.к. то что написано в MouseMove должно выполнятся только после вызова соответствующего MouseDown.(просто в MouseDown создаётся объект, а в MouseUp он уничтожается). У меня там стоит проверка типа if ([ssLeft, ssRight] * Shift <> []) (написанная ещё до того, как я добавил диалоги), но после двойного клика в диалоге не просто вызывается MouseMove, там ещё и ssLeft передаётся в параметре Shift.
Подскажите, если кто знает, как с этим справиться?

[Баламут]

Попробуй так

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMessage('');
  Button2.OnMouseMove := nil;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Button2.OnMouseMove := Button2MouseMove;
end

[megachuhancer]

Нее, кажется не пойдёт. Ведь после:

Button2.OnMouseMove := nil;

выполнение Button2MouseMove будет продолжаться. И я ещё нашёл новую проблему. После MouseDown'а конечно же, вызывается MouseUp. Но это уже совсем не годится. Но я кажется решил проблему. Решение простое, но я почему-то долго не мог его придумать. А как спросил у кого-то - сразу придумал. В общем, так:

procedure TfrmMain.FormCreate(Sender: TObject);
...
begin
   InSafeSection := False;
...
end;

procedure TfrmMain.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   InSafeSection := True;
...
end;

procedure TfrmMain.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
...
   if (([ssLeft, ssRight] * Shift <> []) ...) and (InSafeSection) then
      ...
...
end;

procedure TfrmMain.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
...
   InSafeSection := False;
end;

Но всё равно спасибо, конечно