Einzelnen Beitrag anzeigen

EarlyBird

Registriert seit: 29. Mär 2007
235 Beiträge
 
#4

AW: Panel seitlich ohne Splitter "herausziehen"

  Alt 9. Feb 2016, 07:56
Mit AnimateWindow kannst Du eventuell selber den Effekt erzeugen den du brauchst
Delphi-Quellcode:
procedure TForm11.btn1Click(Sender: TObject);
begin
  AnimateWindow(panel1.Handle, 600, AW_HOR_POSITIVE or AW_SLIDE or AW_ACTIVATE)
end;

procedure TForm11.btn2Click(Sender: TObject);
begin
  AnimateWindow(panel1.Handle, 600, AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE)
end;

procedure TForm11.FormShow(Sender: TObject);
begin
 panel1.Hide;
end;
  Mit Zitat antworten Zitat