| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как запретить одновременный запуск нескольких копий окна???
dimonf © (2003-05-30 19:54:00)Я создал диалоговое окно через функцию:
DialogBox(hInstance,"#501",hWnd, @DialogFunc);
Данную функцию я вызываю при нажатии по клавише enter.
1. Как мне запретить повторный запуск копии формы, если у меня еще она не закрыта???
2. Как мне сделать данную форму модальной, если она не закрыта то нельзя не на чего нажать, кроме кнопки выход?
Вообщем грубо говоря надо ее зделать модальной!!!
Suntechnic (2003-05-30 21:12:00) [1]2. Как мне сделать данную форму модальной, если она не закрыта то нельзя не на чего нажать, кроме кнопки выход?
А DialogBox по-твоему как окно отображает?
Из хелпа:
DialogBox macro creates a modaldialog box from a dialog box template resource.
В свете ответа на второй вопрос не понятен первый вопрос. Неужели ты это диалог позволяешь вызывать рекурсивно?
panov (2003-05-30 21:10:00) [2]Вернее, в коде создания окна должен быть вызов...
panov (2003-05-30 21:07:00) [3]Для проверку на существование окна можно осуществлять так же, как и для всего приложения. Например:
function isRunning(aUniqueString:String): Bool;
var
hMutex: THandle;
begin
Result := False;
hMutex := CreateMutex(nil,False,PChar(aUniqueString));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Result := True;
CloseHandle(hMutex);
end;
end;
...
if not isRunning("MyDialogBox") then MyFuncCreateDialogBox;
| |
