Hi,
wenn es nur um die Änderung des Focus geht, dan nutze doch onEnter und onExit.
Und warum definierst du die
virtuellen Methoden MouseUp, KeyDown etc neu.
Wenn du KeyDown überschreibst, dann so:
Delphi-Quellcode:
MyStringGrid = class(TStringGrid)
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
end;
implementation
procedure MyStringGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
// und mache noch irgend was
end;
die ganzen Zuweisungen wie:
OnKeyDown := StringGrid1.KeyDown;
sind tötlich. Normalerweise wird das Ereignis onKeyDown in der Basisklasse im KeyDown ausgelöst.
Damit erhälst du ziemlichen Salat
Gruß, Frank