VPF::Событие после Resizа формы - Форум программистов

Ak47black

Дата 23.1.2008, 17:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Здравствуйте.
Пытаюсь найти решение ресайзу.
Хочу сделать чтобы например слышать

Код


Beep;

После ресайза окна, но после полного, тоесть когда юзер сделает ресайз и отпустит правую кнопку мышки.
Пробовал сделать

Код


if (GetAsyncKeyState( VK_LBUTTON  ) = 0) then Beep;

Но невыходит.
Пробовал OnConstrainedResize то в этом случае получаю сразу несколько.
Может у когонибудь есть идея?

MetalFan

Дата 23.1.2008, 17:25 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

что не выходит?
почему ты говоришь про правую, а проверяешь левую?

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

There are always someone smarter than you...

THandle

Дата 23.1.2008, 17:27 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


procedure TForm1.FormConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
  if (GetAsyncKeyState( VK_LBUTTON  ) = 0) then Beep;
end;

После ресайза один Beep;

Ak47black

Дата 23.1.2008, 18:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Сорь я перепутал, тоесть я имел ввиду про левую кнопку.

Цитата

После ресайза один Beep;

А я слышу несколько.

Это сообщение отредактировал(а) Ak47black - 23.1.2008, 18:21

THandle

Дата 23.1.2008, 20:14 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Ak47black, странно.
Поставь на Beep; брейкпойнт и посмотри сколько раз он выполняется. У меня один раз за одно изменение размера формы.

Это сообщение отредактировал(а) THandle - 23.1.2008, 20:14

Ak47black

Дата 23.1.2008, 21:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

THandle, да не тут даже если этот код запустить то по процесору(загрузке) видно что он пытается много раз сделать beep.
Я немного по другому обошел эту проблемму, проблема отпала.
Извиняюсь что поднял тему.

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