Кнопка свернуть

[_-Re@l-_]

Как узнать, нажата ли кнопка сворачивания окна?

[Object Kiri]

Интересно... Есть у окна параметр - WindowsState если он равен wsMinimized то окно свёрнуто.
Ещё есть параметры wsMaximized - развёрнуто и wsNormal- нормальное

Например:
if form1.windowstate=wsMinimized then application.messagebox('Окно свёрнуто','',0);

[SERG1980]

А вам именно момент сворачивания надо отловить или просто узнать в каком состоянии находится окно в данный момент?

[_-Re@l-_]

Спасибо.. Просто мне надо, если нажимается кнопка свернуть то чтобы окно не сворачивалось а становилось более прозрачным..с прозрачностью проблем нет.(Form1.AlphaBlend)

Да, мне нужно отловить момент сворачивания

[Object Kiri]

Ээ.. Ну можно поставить свои кнопки свернуть и развернуть,а старые снести.. Я такое уже где-то видел..

[_-Re@l-_]

А как снести старые кнопки?
Всё, я нашёл как снести старые кнопки =)

[Object Kiri]

Свойства формы-BorderIcons там галочки кликаешь и всё.

[SERG1980]

Ну тогда в разделе Public пишем следующую строку

procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;

далее после слова implementation описываем эту процедуру

Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
 if msg.CmdType=SC_MINIMIZE  then
 begin
  //здесь делаем что надо
 end else inherited;
end;

[_-Re@l-_]

Ух как, спасибо

[Object Kiri]

Ну тогда в разделе Public пишем следующую строку

Код:

procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
далее после слова implementation описываем эту процедуру

Код:

Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
//здесь делаем что надо
end else inherited;
end;

эээ! Можно обойти эту хрень! Правой кнопкой на панели задач кликаешь и выбираешь свернуть!

И что вы на это скажете?