Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.23;
Скачать: CL | DM;

Вниз

KeyDown у tPanel   Найти похожие ветки 

 
Евгений Р.   (2007-08-28 15:53) [0]

Есть наследник от tPanel
У него определена процедура
procedure KeyDown(var Key: Word; Shift: TShiftState); dynamic;
Процедура никогда не вызывается. Можно ли исправить ситуацию?


 
umbra ©   (2007-08-28 15:56) [1]

можно. Вызовите ее :)
Если серьезно, то непонятно, зачем она в наследнике определена.


 
Юрий Зотов ©   (2007-08-28 16:06) [2]

Override, а не dynamic, наверное?


 
Евгений Р.   (2007-08-28 17:24) [3]

Конечно, override, но все равно не вызывается.


 
{RASkov} ©   (2007-08-28 17:35) [4]

> [3] Евгений Р.   (28.08.07 17:24)

А у меня вызывается....

 TMyPanel = class (TPanel)
 protected
   procedure KeyDown(var Key: Word; Shift: TShiftState); override;
 end;
........

implementation

{$R *.dfm}

{ TMyPanel }

procedure TMyPanel.KeyDown(var Key: Word; Shift: TShiftState);
begin
 inherited;
 Caption:=Caption+CHR(Key);
end;
//-------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
 with TMyPanel.Create(Self) do begin
  Parent:=Self;
  Caption:="1";
  SetFocus;
 end;
end;

end.



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

Текущий архив: 2007.09.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-1184240354
Layner
2007-07-12 15:39
2007.09.23
Как узнать свойства и методы объекта OLEVariant


11-1171706959
Vladimir Kladov
2007-02-17 13:09
2007.09.23
версия 2.52


3-1179731199
White Barsik
2007-05-21 11:06
2007.09.23
Каскад из TADOQuery


2-1188223755
denis24
2007-08-27 18:09
2007.09.23
Подключение к dbf через ADO


15-1187863725
SerJaNT
2007-08-23 14:08
2007.09.23
Ubuntu Alternate