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