VPF::Перемещение формы - Форум программистов

dfs-

Дата 3.4.2005, 13:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите с проблемой. Для того чтобы другая форма не вызывала, ту которая под ней, делаю так:

Код

procedure Tfrm_General.CreateParams(var Params: TCreateParams);
 var
 Style:DWORD;
 begin
 Inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
  Style:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
  Style:= WS_EX_TOOLWINDOW;
  SetWindowLong(Application.Handle, GWL_EXSTYLE, Style);
 end;

После этого форму нельзя перетащить за заголовок. Можно ли это как-то исправить?

Это сообщение отредактировал(а) dfs- - 3.4.2005, 13:32

FRAGNATIC

Дата 3.4.2005, 14:08 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

Репутация: 6
Всего: 11

а та котороя под ней это форма другого приложения или просто тип главноя форма проги?

dfs-

Дата 3.4.2005, 14:18 (ссылка)

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

Загрузка ...

Новичок

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

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

не та форма этогоже приложения. Она является главной, но не показывается при запуске.
Потом по кнопке показываю.

FRAGNATIC

Дата 3.4.2005, 15:24 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

Репутация: 6
Всего: 11

вообщем я не совсем понял как оно у тебя)
но вот http://forum.vingrad.ru/index.php?showtopic=47321 не знаю конечно наврятле под твой случай
ну ещё есть модальные и не модальные окна Show и ShowModal

dfs-

Дата 3.4.2005, 15:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Вобщем этот вопрос вырос от сюда
Прошу прощения, если нельзя постить с другого форума, но просто долго заново объяснять.

s-mike

Дата 4.4.2005, 08:04 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 9
Всего: 16

После вставки вышеприведенного кода форма нормально перемещается.

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

Преферанс для Android на базе исходников Марьяжа

nickelfire

Дата 4.4.2005, 19:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не уверен что правильно понял но почему-бы просто не поменять местами

Код


Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;

на

Код


Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1); 
  Application.Run;

тогда первой будет показываться форма 2.

Гость_dfs-

Дата 10.4.2005, 22:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

2 nickelfire
Так дело в том, что если ее вызвывать второй то она не будет главным, а значит и не будет поверх всех (ест-но Style:= fsStayOnTop). Другого решения сделать окно поверх всех я не нашел(

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