Label OnMouseDown udn OnClick Probleme

[Matt83]

Hi, danke. Mein Minus Erster Eintrag nach 6 Monaten

Das ReleaseCapture hab gerade komplett übersehen Dann schlag ich einfach mal folgendes vor.

Edit: Wenn du so machst, funktioniert aber acuh OnClick wieder Daher kannst du dann MouseUp weglassen...

Delphi-Quellcode:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MPressed := True;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If MPressed then
  Begin
    MPressed := False;
    ShowMessage('hi');
  end;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If MPressed then
  Begin
    MPressed := False;
    ReleaseCapture;
    SendMessage(form1.Handle, WM_SYSCOMMAND, $F012, 0);
  End;
end;