Форум: "Основная";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Минимизация НЕ главной формы Найти похожие ветки
← →
Кефир87 © (2006-03-07 18:23) [0]Меня сейчас наверно кинут к начинающим... Но просто такой простой вопрос меня поставил в тупик:
Form1 - Главная форма
На форм один нажимаем на кнопку и
Form2.Show;
Hide;
Мне нужно совершить некоторые действия (а именно "запуздырить иконку в трей" 8)) при минимизации Form2. И кстати она, Form2, сворачивается как-то странно. Может я подошел к этому вопросу как-то не так. С VCL дружу не очень хорошо...
Помогите.
← →
API © (2006-03-07 18:27) [1]Меня сейчас наверно кинут к начинающим...
И правильно сделают... :)type
TForm2 = class(TForm)
<...>
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
end;
procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
if (Message.CmdType = SC_MINIMIZE) then <...>
end;
← →
Кефир87 © (2006-03-07 18:48) [2]
> API © (07.03.06 18:27) [1]
Просто я начинающий уже с 4х летним стажем 8)
Спасибо, но это сообщение приходит только если ткнуть на кнопке в таксбаре. Если же нажать на кнопочку в заголовке, окно сварачивается (причем не в таскбар, а... над ним 8)) а сообщение не приходит...
← →
API © (2006-03-07 18:52) [3]Странно. У меня - приходит. Что я не так делаю?
← →
Кефир87 © (2006-03-07 19:09) [4]Действительно странно. Мы точно говорим про НЕ главную форму?
В процедуре пишу следующее:
if Message.CmdType = SC_MINIMIZE then MessageBox(0, "", "", 0);
Я вижу только такой результат:
http://cwdev.mykm.ru/stuff/tbar.png
Если же ткнуть в таскбар, тогда появляется сообщения... Странно...
← →
API © (2006-03-07 19:18) [5]Мы точно говорим про НЕ главную форму?
Я говорю про любую форму:unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TForm2 }
procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
if (Message.CmdType = SC_MINIMIZE) then
ShowMessage("123");
inherited;
end;
end.
← →
Кефир87 © (2006-03-07 19:30) [6]Спасибо 8) Ошибка была в моей косорукости. Формы перепутал 8)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
