Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Стандартная кнопка максимизации, [D6, Win95/98, WinXP]


XenonXX ©   (2003-10-31 08:22:00) 

как перехватить ее нажатие и отреагировать? А то надо реагировать не как на ресайз.


XenonXX   (2003-11-04 16:51:00) [1]

ZEE,

Аригато, сенсей!(="Спасобо мастер") Тормозил я утром после ночи в интернете...


ZEE   (2003-11-04 10:32:00) [2]

if Msg.WParam=SC_MAXIMIZE then
begin
///something
end else inherited; ???


XenonXX   (2003-11-04 06:27:00) [3]

Игорь Шевченко © (31.10.03 12:16) [4]
WM_SYSCOMMAND SC_MAXIMIZE - не получается ?

Если так делать, то

procedure WM_SYSCOMMAND1 (Var Msg: TMessage); message WM_syscommand;
...........................
procedure TForm1.WM_SYSCOMMAND1;
begin
if Msg.WParam=SC_MAXIMIZE then
begin
///something
end;
end;

Это ловит верно, но тогда ведь надо самому писать обработчитки всех кнопок(ну это можно) и даже перетаскивания(а вот с этим траблы), так ведь или можно как-то переправить мессагу туда куда она шла?


Игорь Шевченко   (2003-10-31 12:32:00) [4]

DVM © (31.10.03 12:21)

Это не там, случайно, где просьба удалить ветку, была ?


ZEE   (2003-10-31 12:28:00) [5]

упс, ошибочка у меня в [1]
надо наверно
WM_SIZE + SIZEFULLSCREEN
хотя про SC_MAXIMIZE я как-то вообще не подумал...


DVM   (2003-10-31 12:21:00) [6]


> Игорь Шевченко © (31.10.03 12:16) [4]

Он этот вопрос уже задавал, ему ответили - ноль внимания.


Игорь Шевченко   (2003-10-31 12:16:00) [7]

WM_SYSCOMMAND SC_MAXIMIZE - не получается ?


AbrosimovA   (2003-10-31 12:09:00) [8]

Извините, ответ мой не в тему.


AbrosimovA   (2003-10-31 12:05:00) [9]

А так например:

procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMinimize := OnMinimize;
end;

procedure TMainForm.OnMinimize(Sender : TObject);
begin
..............//Здесь твоя реакция
end;


ZEE   (2003-10-31 10:55:00) [10]

WM_SIZE + SIZEICONIC - по другому думаю врядли


Наверх

Титульная страница Поиск, карта сайта Написать письмо