Двойное нажатие на Button

[Ko$]

Как сделать чтобы при нажатии на Button открывалась вторая форма а при повторном нажатии на эту же кнопку исчезала только чтобы не через Visible а через Show.

[evg_m]

Tform1 =class(TForm)
private
  countclick: boolean;
....
end;[

procedure Tform1.Buttonclick(sender: TObject);
begin
  countclick:=not countclick;
  if countclick then form2.show else form2.hide;  
end;

[bulldog5293]

evg_m респект, как раз сам искал такую реализацию с формами

[evg_m]

не самый лучший вариант. Наличие поля(переменной countclick) относящегося по сути к Form2 в коде form1.
можно сделать так (особенно если посмотреть реализацию процедур show Hide в Tcustomform).

чтобы не через Visible а через Show.

procedure TCustomForm.Hide;
begin
  Visible := False;
end;

procedure TCustomForm.Show;
begin
  Visible := True;
  BringToFront;
end;

form2.vizsible:=not form2.visible;
if form2.visible then form2.BringToFront;

теперь переключение режимов зависит только от самой form2. можно будет сделать управление из нескольких РАЗНЫХ мест которые и знать не будут друг о друге, только о Form2.
или даже так

if form2.visible then form.Hide then form2.Show;

теперь все условия соблюдены.