Перехват изменения Enabled

[kinderproc]

Как перехватить момент установки свойства Enabled у компонента? Какое событие нужно перехватывать?

[uberchel]

Сообщение от kinderproc

Как перехватить момент установки свойства Enabled у компонента? Какое событие нужно перехватывать?

На сколько я понел, вам надо это :

if Button1.Enabled = true then  
begin                                       // Если истина (true)
..........                                    // Ваш код если true
else begin                            // Если лож (false)
..........                                 // Ваш код если false
end;

Помог ? если да, то нажмите на весы слева =)

[kinderproc]

нажмите на весы слева? )))

не-е-е. Мне нужно перехватить какое-то сообщение, отсылаемое контролу, перед тем или после того как его свойство Enabled поменялось.
Если ближе к ситуации - то есть DBLookupComboBox, в момент, когда его свойство Enabled поменялось, нужно совершить какие-то действия. Подозреваю что это нужно делать после его перерисовки, т.е. перхватывать WM_PAINT. Но создавать свой класс для этого не хочется, может быть кто подскажет как перехватить это сообщение без создания нового класса, или какой-то другой способ.

[postal2]

Регистрируй в глобальном var какую-нибудь булеановскую переменную, ставь таймер на полсекунды, например, и смотри по таймеру - если изменилось состояние, то событие.

unit Unit1; {вот пример такой программы - отслеживает изменение параметра enabled у button1}

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  buttonenabled:boolean=true; {регистрируем глобальную переменную - изначальна она должна соответствовать параметру (в данном случаю enabled у компонента)}

implementation

{$R *.dfm}

procedure myproc; {Это пример события, которое будет работать при изменении параметра}
begin
showmessage('');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false; {не забывай останавливать, а то событие может вылетать кучу раз}
if buttonenabled<>button1.Enabled then myproc; {если состояние изменилость, то процедурка}
if button1.Enabled then buttonenabled:=true else buttonenabled:=false; {сохраним текущее состояние}
timer1.Enabled:=true; {и включим таймер опять ловить событие}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if button1.Enabled then button1.Enabled:=false else button1.Enabled:=true; {Кнопка меняет состояние enabled - для примера.}
end;

end.

[Stilet]

Как перехватить момент установки свойства Enabled у компонента?

Зачем ? это значение контролирует программист а не пользователь.