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

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

отлавливание sc_minimize

Змей ©   (2005-12-14 19:14:00) 

Здрасте!
вот SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0)- нажали мы на кнопку свернуть
а как можно поместить в таймер и чтобы он отслеживал:
если нажали кнопку свернуть то showmessage('1'); ???
заранее спасибо! помогите дубу

---

Змей   (2005-12-14 20:46:00) [1]

и то чето глюки ловит:(

---

Змей   (2005-12-14 20:44:00) [2]

Спасибо все прекрасно!
только вот с разворачиванием SC_restore это когда восстанавливает и срабатывает только если мы развернем на всю область экрана SC_MAXIMIZE и восстановим окно до его нормальных размеров. а вот если мы восстанавливаем из свернутого положения то SC_restore не срабатывает:( почему такое может быть?:(

---

begin...end   (2005-12-14 20:14:00) [3]

> umbra ©   (14.12.05 20:03) [3]

> if msg.CmdType = SC_MINIMIZE

:-(

---

umbra   (2005-12-14 20:03:00) [4]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMSyscommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //это объявление Вашего обработчика сообщения. Название может быть любым, главное - правильно указать сообщение в конце
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMSyscommand(var Msg: TWMSysCommand);
begin
if msg.CmdType = SC_MINIMIZE then
 ShowMessage('Пора сворачиваться!');
inherited;
end;

end.


---

Змей   (2005-12-14 19:42:00) [5]

мне говорили об этом!
я простоне наю как это сделать :(

---

umbra   (2005-12-14 19:19:00) [6]

надо у ТForm1написать свой обработчик сообщения WM_SYSCOMMANDи тогда каждый раз, когда будет приходить сообщение, будет появляться мессажбокс.

---

Наверх