Suche nach "Flyout Panel" (TMS Replacement)

[Andreas L.]

Kannst es auch selber machen:

Panel1.Align im OI auf alLeft gesetzt und dann:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  Aleft, Atop, Awidth, Aheight: Integer;
begin
  Aleft := panel1.Left;
  Atop := panel1.Top;
  Awidth := panel1.Width;
  Aheight := panel1.Height;

  panel1.Align := alNone;
  panel1.Left := Aleft;
  panel1.Top := Atop;
  panel1.Width := Awidth;
  panel1.Height := Aheight;

  while panel1.Left <> (-panel1.Width) do
  begin
    panel1.Left := panel1.Left - 1;
    Application.ProcessMessages;
  end;

end;