Скачать: CL | DM;

Перегрузка TCustomGrid.KeyDown   Найти похожие ветки 

← →
Бывший студент ©   (2005-04-07 17:47) [0]

Создаю компонент с предком TStringGrid. Необходимо добавлять/удалять строки в run-time кнопками Ins/Del. Делаю так:
.
.
protected
procedure TMyGrid.KeyDown(var Key: Word; Shift: TShiftState); reintroduce; overload;
.
implementation
procedure TMyGrid.KeyDown(var Key: Word; Shift: TShiftState);
case Key of
Key_Insert: RowCount:=RowCount+1;
Key_Delete: RowCount:=RowCount-1;
end;
end;
end.
Не работает. Что не так?

---

← →
Юрий Зотов ©   (2005-04-07 20:10) [1]

procedure KeyDown(var Key: Word; Shift: TShiftState); override;

---

← →
Бывший студент ©   (2005-04-08 00:37) [2]

.
.
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
.
implementation
procedure TMyGrid.KeyDown(var Key: Word; Shift: TShiftState);
inherited KeyDown(Key, Shift)
case Key of
Key_Insert: RowCount:=RowCount+1;
Key_Delete: RowCount:=RowCount-1;
end;
end;
end.
Не работает.

---

← →
Юрий Зотов ©   (2005-04-08 03:19) [3]

> Бывший студент ©   (08.04.05 00:37) [2]

> Не работает.

Странно, что вообще компилируется. Вместо того, чтобы обматериться на непонятные Key_xxx.

type
 TMyGrid = class(TStringGrid)
 protected
   procedure KeyDown(var Key: Word; Shift: TShiftState); override;
 end;

procedure TMyGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
 case Key of
   VK_INSERT:
     RowCount := RowCount + 1;
   VK_DELETE:
     RowCount := RowCount - 1
   else
     inherited
 end
end;

И ведь работает, однако.

---

← →
Бывший студент ©   (2005-04-08 09:11) [4]

1) Огромное спасибо за содействие - работает;
2) Key_xx - аналог VK из юнита Qt, используются в предке,
  с ними компилируется, но не работает;
3) Видимо дело было ещё и в inherited.
Ещё раз спасибо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.054 c