Seas,
bin gerade dabei meine
erste eigene Komponente zu schreiben und bei mir sind ein paar fehler aufgetreten. Zuerst mein Quellcode -
Ausschnitt:
Delphi-Quellcode:
type
TMp3Grid = class(TStringGrid)
private
FBeforeEdit:string;
protected
procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); override;
procedure SetEditText(Sender: TObject; ACol, ARow: Integer;const Value: string); override;
procedure SelectCell(Sender: TObject; ACol, ARow: Integer;var CanSelect: Boolean); override;
public
constructor Create(AOwner:TComponent); override;
procedure SelfSize;
published
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnDragOver;
property OnSetEditText;
property OnSelectCell;
end;
1. Alle drei Procedures in der
Protected section werden mit
"Deklaration unterscheidet sich von vorheriger Deklaration" bemängelt.
Was ist hier falsch?
2. Wenn ich in meiner Form der Komponente,
per Klick auf das Ereignis OnMouseWheelDown, eine Event Handler Procedure zuweiße so wird diese
nicht ausgeführt. Was ist hier falsch?
3.
Verständnisfrage:
Delphi-Quellcode:
procedure TMp3Grid.DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=true;
inherited DragOver(sender,source,x,y,state,accept);
end;
Diese Procedure ist eine der "überschriebenen" procedures in meiner neuen Komponente.
Wenn ich jetzt noch zusätzlich in der Form drin eine Eventhandler procedure deklariere, wie sieht dann der Abarbeitungsblock aus?
Zitat von
My Brain:
#1 Procedure in meiner Kompo
#2 inherited Procedure meiner Kompo
#3 Neue Procedure, deklariert in der Form
oder anders?
MfG