Главная страница
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.027 c
15-1188071825
Turbouser
2007-08-25 23:57
2007.09.23
DM клиент


4-1174663451
Углук
2007-03-23 18:24
2007.09.23
Как не давать запуститься некоторой программе?


15-1188116310
nucpp
2007-08-26 12:18
2007.09.23
RTF to plain text


2-1188216211
Первокласник Вася
2007-08-27 16:03
2007.09.23
Копирование файлов


15-1187749319
Slider007
2007-08-22 06:21
2007.09.23
С днем рождения ! 22 августа 2007 среда