Как проверить скрыто окно или нет?

[BuT@JL]

Я понимаю что этот вопрос из детского сада, но как мне проверить скрыто окно или нет. Например я скрыл окно с помощью hide, как мне проверить if form1.hide=true then, че нить наподобие. помогите пожалуста, а то у меня башка уже не варит.

[SERG1980]

ф-ия IsWindowVisible

procedure TForm1.Button1Click(Sender: TObject);
var hwnd: THandle;
begin
  hwnd := FindWindow('Form1', 'Органайзер');
  if IsWindowVisible(hwnd) then showmessage('видимое')
end;

[BuT@JL]

SERG1980 я делаю вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var hwnd: THandle;
begin
hwnd := FindWindow('Form1', 'Form1');
if IsWindowVisible(hwnd) then showmessage('невидимое');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
hide;
end;

Жму на button1 приложение скрывается, и должно было вывестись сообщение 'невидимое', но оно почему то не выводится

[Toxa]

if IsWindowVisible(hwnd) then 
 showmessage('видимое');
else
 showmessage('невидимое');

попробуй так

[SERG1980]

procedure TForm1.Timer1Timer(Sender: TObject);
var hwnd: THandle;
begin
hwnd := FindWindow('TForm1', 'Form1');
if IsWindowVisible(hwnd) then showmessage('видимое');
end;

или

procedure TForm1.Timer1Timer(Sender: TObject);
var hwnd: THandle;
begin
hwnd := FindWindow(nil, 'Form1');
if IsWindowVisible(hwnd) then showmessage('видимое');
end;

[Showy]

Сообщение от BuT@JL

SERG1980 я делаю вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var hwnd: THandle;
begin
hwnd := FindWindow('Form1', 'Form1');
if IsWindowVisible(hwnd) then showmessage('невидимое');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
hide;
end;

Жму на button1 приложение скрывается, и должно было вывестись сообщение 'невидимое', но оно почему то не выводится

Ваше сообщение выйдет если окно будет видимым, а не невидимым. Пишите

if not IsWindowVisible(hwnd) then showmessage('невидимое');

[BuT@JL]

Всё получилось. Спасибо большое

[TRIZER]

зачем париться с

FindWindow

если можно узнать handle через

form1.Handle

[uberchel]

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

if application.ShowMainForm then
ShewMessage('Show') 
else 
ShowMessage('Hide');

[856100]

А зачем такие сложности?

If form1.visible=true then Showmessage('Видимое') else Showmessage('скрыто');