Цитата:
|
Сообщение от Пионер
Во время работы программы!
|
Код:
...
procedure TForm1.Button1Click(Sender: TObject);
begin
if Panel1.Parent=Self then
begin
Form2.Show;
Panel1.Parent:=Form2;
end else
begin
Form2.Hide;
Panel1.Parent:=Self;
end;
end;
...
во вложеном примере жми кнопку.