Also, das Problem scheint irgendwo daran zu liegen, dass ich die VST auf ein anderes Panel übertrage. Wenn ich die mit "---> xyz <---" markierten Zeilen herausnehme, klappt es; aber das ist ja nicht Sinn der Sache (bzw. so funktioniert es nicht so, wie es soll, nämlich das die VST über das "feste" Panel hinausragt...
Delphi-Quellcode:
type ...
...
private
...
procedure VST_Expand;
procedure VST_Minimize;
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.VST_Expand;
begin
VST.Align := alNone;
VST.Width := 400;
VST.Height := Panel2.Height -10;
---> VST.Parent := Form2; <---
end;
procedure TForm2.VST_Minimize;
begin
---> VST.Parent := Panel2; <---
VST.Align := alClient;
end;