TPanel hin und her schieben...

[Gast]

Hallo TPanel Profis, 8)

irgendwie brauche ich bei neuen (für mich) Sachen immer einen Ruck... alles andere ergibt sich dann später von selbst... auch jetzt ist das so

...jetzt muss ich auf einem leerem Formular ein TPanel hin und her schieben.... also mit gedrückten linken Maus-Taste verschieben und loslassen...

Wie mache ich das?

Gruß

Paul Jr.

[sakura]

Im OnMouseDown Ereignis einfach den folgenden Code einfügen

Delphi-Quellcode:

procedure TfrmTopBar.Panel1OnMouseDown(
  Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer
);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    TPanel(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
  end;
end;

[City Light]

Hallo Paul Jr.

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
   SendMessage(Panel1.Handle, wm_SysCommand,$f012,0);
end;

Gruß ,Tino

[Gast]

Hallo Sakura und Tino,

DANKE !!!

Gruß

Paul Jr.