Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
ВнизКак отловить минимизирование формы ? Найти похожие ветки
← →
Блондинка (2004-04-13 13:25) [0]Тупой сабж .. но надо !
← →
RDen (2004-04-13 13:43) [1]type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure AppMinimize(Sender: TObject);
..............
var
Form1: TForm1;
var i:integer;
.............
procedure TForm1.AppMinimize(Sender: TObject);
begin
i:=i+1;
Application.Minimize;
form1.caption:="Приложение было свёрнуто "+inttostr(i) +" раз";
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
Application.OnMinimize := AppMinimize;
end;
← →
Семен Сорокин © (2004-04-13 14:03) [2]Блондинка (13.04.04 13:25)
надо обработать сообщение WM_SYSCOMMAND + SC_MINIMIZE
← →
Блондинка (2004-04-13 14:06) [3]Возможно Вы меня неправильно поняли .. мне нужно минимизировать весь проект когда минимизируется одна из форм.
допутси есть всего две форма form1 и form2 когда я минимизирую 2-ю форму она в левый нижний угол сворачивается а 1-я форма активная становится .. а мне надо перехватить нажатие коноки минимизации формы в правом верхнем углу (где еще закрыть) и свернуть все приложение на панель задач
← →
Блондинка (2004-04-13 14:07) [4]
> Семен Сорокин © (13.04.04 14:03) [2]
это как ?
← →
Гаврила (2004-04-13 14:11) [5]>>Блондинка (13.04.04 14:07) [4]
A window receives this message when the user chooses a command from the window menu (also known as the System menu or Control menu) or when the user chooses the Maximize button or Minimize button.
← →
Блондинка (2004-04-13 14:16) [6]в тексте будет выглядеть
← →
Семен Сорокин © (2004-04-13 14:20) [7]Блондинка (13.04.04 14:06) [3]
сделай одного предка для своих форм, а в него добавь:type
TMyForm = class(TForm);
private
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
end;
procedure TMyForm.WMSysCommand(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
Application.Minimize
end;
← →
Семен Сорокин © (2004-04-13 14:24) [8]Семен Сорокин © (13.04.04 14:20) [7]
про inherited забыл в обработчике.
← →
Блондинка (2004-04-13 14:34) [9]
> Семен Сорокин © (13.04.04 14:20) [7]
> про inherited забыл в обработчике.
куда его надо запихнуть ?
← →
Семен Сорокин © (2004-04-13 14:37) [10]Блондинка (13.04.04 14:34) [9]
куда его надо запихнуть ?
можно попробовать сюда
:))procedure TMyForm.WMSysCommand(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
Application.Minimize;
inherited
end;
← →
Брюнет (2004-04-13 14:38) [11]:)
← →
Блондинка (2004-04-13 14:41) [12]
> Семен Сорокин © (13.04.04 14:37) [10]
спасибо. работает .
← →
panov © (2004-04-13 14:50) [13]>Блондинка (13.04.04 13:25)
Не только сабж.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.032 c