как определить видна ли форма?

[Leo20]

Как определить видна ли форма в данный момент.

Мне просто напросто нужно

Кнопка КлиК(Отправитель типа ТОбъект)
бегин
Если форма видана зен
Скрыть форму
Елс
Показать форму
конец;

[jekaz]

Если это вопрос то ты на него вроди бы ответил!

[Leo20]

да не совсем

Условие Если форма видна, не знаю какое запихнуть
Какое сойство определяет видимость формы????

16:32

нашел если кому интересно это property(свойство)
Form2.Visible

[mihali4]

Visible property
Хэлпом не умеете пользоваться?
Или просто лень посмотреть свойства формы?

З.Ы. И про кнопку "Правка" не забывайте, а то...

[FaTaL]

А почему Вам это не подходит?
If Form2.Showing then
Form2.Hide else
Form2.Show;

[mihali4]

Это несколько другое. Это свойство показывает, что форма находится на экране и не свернута.
А Visible - зависит от того, перекрыта ли форма другими формами (приложениями).

[Marsel737]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.Visible=true then Form1.Visible:=false else Form1.Visible:=true;
end;

[mihali4]

Или проще:

Form1.Visible:=not Form1.Visible;

Только на невидимой форме проблемно найти кнопку, чтобы нажать на нее...

[Marsel737]

mihali4, если логически рассуждать, то это:

Form1.Visible=true then Form1.Visible:=false else Form1.Visible:=true;

Или вот это:

Form1.Visible:=not Form1.Visible;

Полный бред вы верно подметили, что на кнопку невидимой формы не нажать, значит можно просто написать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Visible:=false;
end;

[Stilet]

что на кнопку невидимой формы не нажать,

Если ее хендл еще жив то на нее спокойненько можно нажать программно.
Один из таких способов выполить метод Click той самой кнопки, так что твое утверждение о бреде - палка о двух концах.