Label OnMouseDown udn OnClick Probleme

[marabu]

Hallo Doreen,

vielleicht ist dir geholfen, wenn du die Alt-Taste hinzu nimmst:

Delphi-Quellcode:

const
  SC_DRAGMOVE = $F012;

procedure TDemoForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssAlt in Shift then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Grüße vom marabu

Edit: Perform() statt PostMessage()