Panel mit Maus verschieben

Egbert

Hallo,
in Delphi verschiebe ich mit

procedure Form1.Panel1MouseDown( usw...); 
const SC_DragMove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND,SC_DragMove,0);
  refresh;
end;

das Panel. Nun versuche ich das Gleiche in BCB mit

void __fastcall TForm1::Pane11MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  const int SC_DragMove = $F012; 

  ReleaseCapture;
  Panel1->Perform(WM_SYSCOMMAND,SC_DragMove,0);
  Refresh();
}

Komme leider nicht weiter, weil ich nicht weiß, wie ich einer
const int eine Hexzahl zuweise. Oder gibt es eine andere Lösung, um
eine Komp mit der Maus zu verschieben?
Schon jetzt, Danke für Antworten.
Gruß Egbert.

Th

In C/C++ wird dafür das Präfix '0x' benutzt:

const int SC_DragMove = 0xF012;

Egbert

Hallo TH, Danke für die prompte Antwort.
Klappt wunderbar bei einem Panel. Habe das Gleiche mit einer Image versucht, geht aber leider nicht. Vielleicht hast Du da ebenfalls einen Tipp dazu.
Gruß Egbert.

Jansen

Siehe FAQ unter "Forms".

Egbert

Hallo Jansen, Danke für den Hinweis. Leider hatte eine diesbezgl.Suche hier keinen Erfolg. Grund war sicherlich meine falsche Fragestellung.
Gruß Egbert.