Почему не исчезает форма?

@Landser · Регистрация: 18.04.2009

Студворк — интернет-сервис помощи студентам

собственно, такой простой код имеется:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.visible:=false;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if  условие then button1.Click ;
end;

но почему то при запуске формы, и если выполняется условие(например если сейчас определённое время),форма не исчезает, а вот если сделать:

Delphi
1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('123');form1.visible:=false;   
   form1.visible:=false;showmessage('123');
end;

то message то появляется, а вот форма не исчезает,совершенно мне неясно, почему..

кто нибудь может сказать , почему такое происходит?

@Nikfel · 30.06.2009, 20:48

А зачем вообще такой странный код? Как форма будет исчезать при создании окна(т.е. окно формы еще не создано), такое вроде не возможно. Лучше использовать form1.Hide;, чем form1.visible:=false;

@Landser · 30.06.2009, 20:59 **[ТС]**

Сообщение от Nikfel

А зачем вообще такой странный код? Как форма будет исчезать при создании окна(т.е. окно формы еще не создано), такое вроде не возможно. Лучше использовать form1.Hide;, чем form1.visible:=false;

если написать

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.hide;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if  условие then button1.Click ;
end;

то тоже ничего не исчезает
этим я собственно вот что хочу реализовать:чтобы при запуске винды,если ранее были заданы определённые настройки, то форма запускалась невидимой,чтоб глаза всё время не мозолила,может есть другой способ так сделать тогда?
как производить какие то действия, "при запсуке формы",я просто использовал form.create, но это при создании, а выходит нужно при запуске?

@John_Pa9JIbHuK · 30.06.2009, 21:09

я так понял те надо чтоб кода прога твоя запустится чтоб она была свернутой??

Добавлено через 4 минуты 21 секунду

Delphi
1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WindowState:=wsMinimized;
end;

@Nikfel · 30.06.2009, 21:29

Вот нашел в интернете:
http://www.delphisources.ru/pa... m_run.html

Вот так можно спрятать окно полностью:

Delphi
1
2
initialization
Application.ShowMainForm := False;

Если использовать Delphi7 + kol, то там все проще делается, чем тут. Я никак не могу понять зачем люди пишут крупные проги, хотя можно писать мелкие.

Добавлено через 14 минут 42 секунды
А можно и вот так:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if условие then begin
form1.Hide;
...
Timer1.Enable:=false;
end;
end;

@Landser · 30.06.2009, 21:41 **[ТС]**

John_Pa9JIbHuK-мне надо именно ,чтобы она не мешалась при запуске, но всё равно спасибо

Nikfel, спасибо огромное-application.ShowMainForm := False-как раз,что надо

@tat3088 · 03.08.2009, 04:01

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

@Monte-Cristo · 03.08.2009, 12:36

tat3088, если я правильно понял, то так:

1. кидаешь таймер на форму
2. Form1.AlphaBlend:=true;
3. Timer1.Enabled:=false;
4. В Timer1.OnTimer пишешь:

Delphi
1
2
    Form1.AlphaBlendValue := Form1.AlphaBlendValue -10;
    if Form1.AlphaBlendValue < 10 then Application.Terminate;

@tat3088 · 04.08.2009, 07:08

Сообщение от Monte-Cristo

tat3088, если я правильно понял, то так:

1. кидаешь таймер на форму
2. Form1.AlphaBlend:=true;
3. Timer1.Enabled:=false;
4. В Timer1.OnTimer пишешь:

Delphi
1
2
    Form1.AlphaBlendValue := Form1.AlphaBlendValue -10;
    if Form1.AlphaBlendValue < 10 then Application.Terminate;

Огромное спасибо,форма закрывается, только оч. медленно...
А если подключить кнопку к таймеру ....?
Чтобы получилось наподобие вот этого эффекта: - (он уменя работает на запуск формы, а хотелось бы , чтобы при нажатии на кнопку "Выход" форма так же плавно закрывалась)

В обработчике событий в графе OnShow пишешь:
Create
далее

Delphi
1
2
3
4
5
bedin
AnimateWindow(form1.Handle,2000,aw_blend);
form1.Show;
end;
end.

@Monte-Cristo · 04.08.2009, 11:36

Сообщение от tat3088

Огромное спасибо,форма закрывается, только оч. медленно...

Timer ставь не на секунду, а 100 милисекунд (например)
Так же на скорость повлияет эта цифра

Delphi
1
2
Form1.AlphaBlendValue := Form1.AlphaBlendValue -[COLOR="Red"][B]10[/B][/COLOR];
if Form1.AlphaBlendValue < [B][COLOR="#ff0000"]10[/COLOR][/B] then Application.Terminate;

@tat3088 · 05.08.2009, 11:48

Огромное спасибо! Всё получилось...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Nikfel 60 / 32 / 15 Регистрация: 30.05.2009 Сообщений: 234
	30.06.2009, 20:48
	А зачем вообще такой странный код? Как форма будет исчезать при создании окна(т.е. окно формы еще не создано), такое вроде не возможно. Лучше использовать form1.Hide;, чем form1.visible:=false; 1

@Landser 57 / 7 / 4 Регистрация: 18.04.2009 Сообщений: 429
	30.06.2009, 21:41 [ТС]
	John_Pa9JIbHuK-мне надо именно ,чтобы она не мешалась при запуске, но всё равно спасибо Nikfel, спасибо огромное-application.ShowMainForm := False-как раз,что надо 0

@tat3088 0 / 0 / 0 Регистрация: 03.08.2009 Сообщений: 21
	03.08.2009, 04:01
	Доброго времени суток, подскажите плз, как сделать чтобы форма плавно закрывалась через определённый промежуток времени ? 0

@tat3088 0 / 0 / 0 Регистрация: 03.08.2009 Сообщений: 21
	05.08.2009, 11:48
	Огромное спасибо! Всё получилось... 0