Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-1082030354
Паша5
2004-04-15 15:59
2004.05.02
Компонент на формах


1-1082209420
vin
2004-04-17 17:43
2004.05.02
отловить Mouse за пределами формы


14-1081414096
Ivolg
2004-04-08 12:48
2004.05.02
Таймер


14-1081302601
Думкин
2004-04-07 05:50
2004.05.02
С днем рождения! 7 апреля.


14-1081422682
Карелин Артем
2004-04-08 15:11
2004.05.02
Символ со знаком. Символ без знака.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский