Zitat von
Christian Seehase:
Moin Wormid,
nimm mal ein Formular, leg einen Button drauf und dann kommen in MouseDown, bzw. MouseUp des Button folgende Zeilen:
Delphi-Quellcode:
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Button1.Handle,WM_SYSCOMMAND,$F012,0);
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
SetCapture(self.Handle);
end;
Jetzt drück mal die Linke Maustaste auf dem Button, und Beweg' die Maus.
Vielleicht kannst Du ja was damit anfangen.
Was ist wenn man jetzt dem Button eine OnClick procedure verpassen will?
Bei mir führt er sie nicht aus!