hier:
Delphi-Quellcode:
//global deklarieren:
var PanMove : boolean;
...
//Tastenabfrage:
procedure TForm1.OnKeyDown(Sender : TObject; ... var Key : DWord);
begin
if Key = {deine Taste (z.B. VK_F1)} then //KeyPreview des Forms auf true setzen!
begin
PanMove := not PanMove;
end;
end;
...
//Panel bewegen:
procedure TForm1.OnMouseMove(Sender : TObject; ... X, Y : integer);
begin
Panel.Left := X - Panel.width div 2; //Damit der Cursor auch in
Panel.Top := Y - Panel.height div 2; //der Mitte des Panels ist
end;
(Da könntest du dann noch Abfragen einbauen, damit das Panel nicht ausserhalb der Form landet...)
Viel Spaß damit, hoffe, es ist richtig
MfG Lefko.