| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Kak programmno zakrit' formu [D6]
Alexei Sviridov © (2004-06-30 18:36:00)Kak programmno zakrit' formu esli znaju ee caption
Alexei Sviridov (2004-06-30 20:15:00) [1]Spasibo vsem
Alexei Sviridov (2004-06-30 20:14:00) [2]
> Тимохов
Thanks very much. Screen.forms - that's what I needed
wisekaa (2004-06-30 20:13:00) [3]
> panov © (30.06.04 19:56)
Согласен это VCL объект, который использует Объект Windows
panov (2004-06-30 19:56:00) [4]>wisekaa © (30.06.04 19:46) [11]
Форма -> это тоже окно
Форма - это VCL-объект.
Окно - объект Windows.
wisekaa (2004-06-30 19:46:00) [5]
> panov © (30.06.04 19:38)
Форма -> это тоже окно
begin...end (2004-06-30 19:46:00) [6]
> Alexei Sviridov
Если ты хочешь закрыть одну из форм своей программы, то, возможно, можно так:
var
I: Integer;
MyCaption: String;
begin
for I := Screen.CustomFormCount - 1 downto 0 do
if Screen.CustomForms[I].Caption = MyCaption then
Screen.CustomForms[I].Close;
end.
P.S. Не проверял.
Тимохов (2004-06-30 19:39:00) [7]
> panov © (30.06.04 19:38) [9]
в 5 он уже сказал - форму
Тимохов (2004-06-30 19:38:00) [8]screen.forms
panov (2004-06-30 19:38:00) [9]Определись сначала, что тебе нужно закрыть - окно или форму.
Alexei Sviridov (2004-06-30 19:35:00) [10]Tak vse-taki kak poluchit' spisok form?
wisekaa (2004-06-30 19:22:00) [11]HWND := FindWindow();
SendMessage(HWND, WM_CLOSE); -> если просто закрыть
DestroyWindow(HWND); если убить
Тимохов (2004-06-30 19:15:00) [12]вы определитесь - окна (в смысле windows) или формы (в смысле Delphi) вам нужны...
Alexei Sviridov (2004-06-30 19:15:00) [13]в смысле формы
Alexei Sviridov (2004-06-30 19:11:00) [14]A kak poluchit' spisok okon?
Moss (2004-06-30 18:41:00) [15]Forma[Caption], zakroysa !!!
Алхимик (2004-06-30 18:40:00) [16]FindWindow
DestroyWindow
| |
