Panel Professionel Resizen mit pfeilen etc...

[Fussball-Robby]

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