|
Registriert seit: 10. Feb 2007
2.262 Beiträge
Delphi 2007 Professional
|
Re: Panel verschieben
8. Mär 2009, 13:15
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND,$F012,0);
end;
end;
So müsste es auch gehen.
Ein Tag ohne Delphi ist ein verlorener Tag!
Homepage zu meinem neuen Programm:  StreamZ
|