Hmm ich kriege das irgendwie nicht hin.
Ich müsste das Panel ja über eine externe Prozedure
steuern.
Da ist ja dann nicht mehr Panel2.Parent definiert:
Delphi-Quellcode:
procedure TForm1.Newsausfahren(Sender: TObject);
begin
if (Panel2.Parent as TPanel).AutoSize=true then
begin
(Panel2.Parent as TPanel).Autosize:=false;
(Panel2.Parent as TPanel).Height:=19;
end
else
begin
(Panel2.Parent as TPanel).Autosize:=true;
end;
end;