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 :oops:

...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, :lol:

DANKE !!!

Gruß

Paul Jr.