VPF::Работа с окном - Форум программистов

WGR

Дата 21.7.2007, 12:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Приветствую всех

Тут проблемка возникла с созданными окнами в рантайме
К примеру, вот так вот создаю окно

Код


with TF_Message.Create(nil) do begin
  Caption:=info;
  Show;
end;

В обработчике окна могу оперировать с вновь созданным

Код


procedure TF_Message.FormShow(Sender: TObject);
begin
  TF_Message(Sender as TF_Message).Top:=Screen.Height-(TF_Message(Sender as TF_Message).Height);
  TF_Message(Sender as TF_Message).Left:=Screen.Width-TF_Message(Sender as TF_Message).Width;
end;

Но задача состоит в следующем
мне нужно все окна F_Message существующие до этого сдвинуть наверх на величину их высоты
Как это реализовать???

Это сообщение отредактировал(а) WGR - 21.7.2007, 12:45

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

Flash ICQ Chuch@"... да как два байта отослать!!!"

murod

Дата 21.7.2007, 12:51 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 17.9.2005
Где: Uzbekistan/Tashke nt

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

API функцией

Код


BOOL SetWindowPos(

    HWND hWnd,    // handle of window
    HWND hWndInsertAfter,    // placement-order handle
    int X,    // horizontal position
    int Y,    // vertical position
    int cx,    // width
    int cy,    // height
    UINT uFlags    // window-positioning flags
   );

или все созданные окна хранить в списке или в массиве и их двигать по top,left

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

Люди всего мира берегите природу!

Snowy

Дата 21.7.2007, 12:53 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Код


  for i := 0 to Screen.FormCount-1 do
    if Screen.Forms[i] is TF_Message then
      Screen.Forms[i].Top := Screen.Forms[i].Top - Screen.Forms[i].Height;

murod

Дата 21.7.2007, 12:58 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 17.9.2005
Где: Uzbekistan/Tashke nt

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

Snowy, да красивое рещение!

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

Люди всего мира берегите природу!

WGR

Дата 21.7.2007, 13:04 (ссылка)

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

Загрузка ...

Бывалый

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

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

Snowy, Благодарю

Вот за что я люблю этот форум !!!
Быстро и то, что нужно.

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

Flash ICQ Chuch@"... да как два байта отослать!!!"

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