Neue Komponente - Ereignis lässt sich nicht überschreiben!

[smepal]

Wenn ich das Keydown ereignis meiner Kompo die als Vorlage ein TSringgrid hat überschreiben will
Procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); override; bekomme ich folgende Fehlermeldung:

Deklaration von 'KeyDown' unterscheidet sich von vorheriger Deklaration!

Weiß jemand wodran das liegt?

[Hawkeye219]

Hallo smepal,

die Originalmethode hat folgende Signatur:

procedure KeyDown(var Key: Word; Shift: TShiftState); override; Siehst du den Unterschied?

Gruß Hawkeye

[smepal]

Danke jetzt gehts!
Und wie mache ich das, wenn ich möchte, dass beim Aufruf einer Methode Variablen zurückgegeben werden?
Bsp. beim Doppelklick auf eine Listbox der ItemIndex?

[DGL-luke]

wohin soll er denn zurückgegeben werden? ich sehe in deiner frage im moment keinen sinn...

[smepal]

bei einem KeyDown Ereignis wird ja zum Beispiel die Variable key wiedergegeben, das möchte ich nun mit meinen eigenen Variablen machen!

[mkinzler]

Zitat von smepal:

bei einem KeyDown Ereignis wird ja zum Beispiel die Variable key wiedergegeben, das möchte ich nun mit meinen eigenen Variablen machen!

Und wie würde as dann aussehen?

[smepal]

Delphi-Quellcode:

procedure TPlaylist.DblClick (var Trackinfo: TTracks);
begin
Trackinfo := gettracks(row);

end;

so in der Playlist Unit!
Aber das kann man ja nicht einfach so deklarieren!

[hoika]

Hallo,

definiere dir eigene Events,
z.B. OnMyKeyDown, fang das Originale ab und rufe dann deines auf.


Heiko

[mkinzler]

Die Methode an sich kannst du schon so deklarieren, diese kannst du aber nicht als Callback für den Event nutzen.

[hoika]

Hallo,

Doch indem man das OnKeyDown in eine eigene Methode in
der Komponente umleitet und von dort aus
das andere Event feuert.

Ein Bsp. aus einem Programm.
Es wird der Doppelklick im StirngGrid abgefangen
und auf eine andere Methode umgeleitet.
Dort kann entschieden werden, ob der inplace-Editor angezeigt wird oder nicht.

Das OnWantEdit-Event enthält dafür 2 Return-Parameter,



Heiko


interface

TWantEditEvent = procedure (Sender: TObject; theCol: Longint;
var bCanEdit: Boolean; var EditLen: Integer) of object;


procedure DblClick; override;
procedure ActOnDblClick;

FWantEdit : TWantEditEvent;

property OnWantEdit: TWantEditEvent
read FWantEdit write FWantEdit;


implementation

procedure TEditGrid.DblClick;
begin
inherited DblClick;

ActOnDblClick;
end;


procedure TEditGrid.ActOnDblClick;
if Assigned(FWantEdit) then
begin
CanEdit:= True;
EditLen:= 255;
FWantEdit(Self, Col, CanEdit, EditLen);
if not CanEdit then Exit;
end;