Текущий архив: 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.033 c