Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Внизотлавливание 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.016 c