Du prüfst, wo sich die Maus befindet und hast im OnMoueMove folgendes:
Delphi-Quellcode:
if ssLeft in Shift then
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, XX, 0);
end;
Wobei du XX ersetzen musst, je nach dem, wo sich die Maus befindet:
Delphi-Quellcode:
$F001: linke Seite
$F002: rechte Seite
$F003: oben
$F004: Ecke links oben
$F005: Ecke rechts oben
$F006: unten
$F007: Ecke links unten
$F008: Ecke rechts unten
Am besten deklarierst du diese Werte vorher als Konstanten.
Mfg