Главная страница
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.023 c
15-1187890833
Гарри Поттер
2007-08-23 21:40
2007.09.23
Стиральная машина


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


11-1170499499
Galkov
2007-02-03 13:44
2007.09.23
Бага в IntPower для F_P


2-1188450984
Человек
2007-08-30 09:16
2007.09.23
Экспорт в Word


15-1187704716
oldman
2007-08-21 17:58
2007.09.23
Отключение прерываний.