Цитата:
|
Сообщение от true
Щас пробую насчет визибл я совсем новичек я хочу примерно такое:
Код:
procedure TForm1.Button6Click(Sender: TObject);
begin
PageControl1.Visible:=False;
if Button1.Click then
PageControl1.Visible:=True;
end;
end. |
Так у тебя так не получится, надо писать это в Buttin1.Click (в твоем случае):
Код:
procedure TForm1.Button6Click(Sender: TObject);
begin
PageControl1.Visible:=False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.Visible:=True;
end;