|
Registriert seit: 10. Feb 2007
2.262 Beiträge
Delphi 2007 Professional
|
Re: Panel folgt Cursor
10. Nov 2009, 16:32
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;
Ein Tag ohne Delphi ist ein verlorener Tag!
Homepage zu meinem neuen Programm:  StreamZ
|