|
Платные хостинги
Раскрутка сайта
Книги по программированию
Запуск формы один раз
- If Form2.Showing then Form2.SetFocuselse<Создаешь ее>
- А можно глобальную хранить переменную типа boolean:Код ...var Act: boolean;...procedure TForm1.FormCreate(...);begin ... Act:=false;end;procedure TForm1.Button1Click(Sender:TObject);...begin... if not Act then begin Form1.ShowModal; Act:=True; end;end;highlightSyntax('delphiTIzN2M','delphi');
- А можно еще при запуске приложения пытаться искать твою форму (FindWindow), если такое окно существует, то на него автоматически фокус, а запущенное приложение закрываем. Вот и все.
- Или в атомы писать.
- сложно все как-то...об этом даже не надо задумываться:можно просто всегда использовать метод showесли форма еще не открыта - она будет показанаесли форма уже открыта - она просто станет активнойпримечание: форма должна быть в списке auto-create (она там по умолчанию)----Код If Form2.Showing then Form2.SetFocuselse<Создаешь ее>highlightSyntax('delphiYmJhNG','delphi');если при проверке Form2.Showing форма еще не будет создана, могут возникнуть проблемы
- По мне так лучше с помощью API функций ее найти и отобразить, а если не найдено так создать.... вообщем как предложил serious. И совсем это не сложно..
- Из всех вариантов, что я когда-либо слышал мне понравилось 21. Через FindWindow получать хэндл окна - в случае если приложение окошечное.2. Создавать и использовать мютекс (OpenMutex, CreateMutex).
- Ну дак наверное не трудно сделать проверку на существование формы? Я дал в общем виде. Если быть точнее, то можно, например, сделать так:Код procedure TForm1.Button1Click(Sender: TObject);beginif Form2<>nil thenbeginwith Form2 do begin if not Showing then Show; SetFocus; end;endelsebegin Form2:=TForm2.Create(Form1); Form2.Show;end;end;highlightSyntax('delphiFmMzc4Y','delphi'); Это сообщение отредактировал <Spawn> - 14.3.2003, 20:24
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
