Скачать: CL | DM;

отлавливание sc_minimize   Найти похожие ветки 

← →
Змей ©   (2005-12-14 19:14) [0]

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

---

← →
umbra ©   (2005-12-14 19:19) [1]

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

---

← →
Змей ©   (2005-12-14 19:42) [2]

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

---

← →
umbra ©   (2005-12-14 20:03) [3]

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.


---

← →
begin...end ©   (2005-12-14 20:14) [4]

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

> if msg.CmdType = SC_MINIMIZE

:-(

---

← →
Змей ©   (2005-12-14 20:44) [5]

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

---

← →
Змей ©   (2005-12-14 20:46) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c