VPF::Запуск формы один раз - Форум программистов

Sergio

Дата 14.3.2003, 00:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите, пожалуйста, как можно реализовать такое: при нажатии на кнопку открывается форма, при повторном нажатии на ту же кнопку, новое окно с той же формой не должно открываться, просто курсор переходит в уже открытую форму.

<Spawn>

Дата 14.3.2003, 00:42 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

If Form2.Showing then
Form2.SetFocus
else
<Создаешь ее>

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Pakshin A. S.

Дата 14.3.2003, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

А можно глобальную хранить переменную типа 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;

serious

Дата 14.3.2003, 03:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1

А можно еще при запуске приложения пытаться искать твою форму (FindWindow), если такое окно существует, то на него автоматически фокус, а запущенное приложение закрываем. Вот и все.

--------------------

Я знаю то, что ничего не знаю, а некоторые не знают и этого.

serious

Дата 14.3.2003, 03:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1

Или в атомы писать.

--------------------

Я знаю то, что ничего не знаю, а некоторые не знают и этого.

maxim1000

Дата 14.3.2003, 04:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

сложно все как-то...

об этом даже не надо задумываться:
можно просто всегда использовать метод show
если форма еще не открыта - она будет показана
если форма уже открыта - она просто станет активной
примечание: форма должна быть в списке auto-create (она там по умолчанию)
----

Код


If Form2.Showing then 
Form2.SetFocus
else
<Создаешь ее>

если при проверке Form2.Showing форма еще не будет создана, могут возникнуть проблемы

--------------------

qqq

Medved

Дата 14.3.2003, 07:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

По мне так лучше с помощью API функций ее найти и отобразить, а если не найдено так создать.... вообщем как предложил serious. И совсем это не сложно..

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

AntonSaburov

Дата 14.3.2003, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Штурман

Профиль
Группа: Модератор
Сообщений: 5658
Регистрация: 2.7.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 118

Из всех вариантов, что я когда-либо слышал мне понравилось 2

1. Через FindWindow получать хэндл окна - в случае если приложение окошечное.
2. Создавать и использовать мютекс (OpenMutex, CreateMutex).

--------------------

Мои проекты для Винграда

<Spawn>

Дата 14.3.2003, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Цитата(maxim1000 @ 13.3.2003, 20:09)

Код


If Form2.Showing then 
Form2.SetFocus
else
<Создаешь ее>

если при проверке Form2.Showing форма еще не будет создана, могут возникнуть проблемы

Ну дак наверное не трудно сделать проверку на существование формы? Я дал в общем виде. Если быть точнее, то можно, например, сделать так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2<>nil then
begin
with Form2 do 
 begin
  if not Showing then
    Show;
  SetFocus;
 end;
end
else
begin
 Form2:=TForm2.Create(Form1);
 Form2.Show;
end;

end;

Это сообщение отредактировал(а) <Spawn> - 14.3.2003, 20:24

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »