Платные хостинги     Раскрутка сайта     Книги по программированию

Реакция на OnEnter, как перекрыть OnEnter?

- Подскажите, как описать реакцию компаненты на получение ей фокуса (OnEnter)? Hапример, для определения OnKeyDown достаточно перекрыть процедуру KeyDown, для OnKeyPress - KeyPress, а вот для OnEnter что-то ничего не удается найти.

- Какой компонент то?

- Да любой визуальный. Мне именно нужен DBGrid. Хотя это не имеет значения.....

- Лови:Код  TMyButton = class(TButton)  protected    procedure DoEnter; override;  end;{ TMyButton }procedure TMyButton.DoEnter;begin  inherited;  ShowMessage('Enter');end;procedure TForm1.FormCreate(Sender: TObject);begin  with TMyButton.Create(Self) do  begin    Parent := Self;    Caption := 'asdf';    Left := 10;    Top := 10;  end;end;highlightSyntax('delphiE1ZTQz','delphi');

- Спасиба! А то я уже начал извращаться так:Код procedure CMEnter(var Message: TCMEnter); message CM_ENTER;procedure DoEnter;...procedure TDBEditGrid.DoEnter;Begin//End;procedure TDBEditGrid.CMEnter(var Message: TCMEnter);Begin// DoEnter;End;highlightSyntax('delphiIxODEy','delphi');Короче, торможу братцы!

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD