Forum: Object-Pascal / Delphi-Language
Delphi
by Captnemo,
29. Sep 2014
Geht nicht. Dann bekomme ich den Fehler: E2170 Ein nichtvirtuelle Methode kann nicht überschrieben werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Captnemo,
29. Sep 2014
Ich habe zwar ein Function Add
type
TEntries=class(TCollection)
private
FonEntryAdd: TOnEntryAdd;
function getItem(index: Integer): TEntry;
procedure setItem(index: Integer; const Entry: TEntry);
public
property Items: TEntry read getItem write setItem; default;
function Add: TEntry; virtual;
Forum: Object-Pascal / Delphi-Language
Delphi
by Captnemo,
29. Sep 2014
Okay, das ist soweit klar.
Aber ich muß ja noch irgendwo einen "Auslöser" definieren, der das OnItemChange-Ereignis auslöst.
Ich will ja keine geerbten Ereignisse, sondern ein neues definieren, z.B. OnSelectChange.
Ich habe das jetzt so gelöst (nicht Themarelevante Codeabschnitte habe ich mal rausgeschnitten):
Type
TOnSelectChange=procedure(Sender: TObject; ItemIndex: Integer) of...
Forum: Object-Pascal / Delphi-Language
Delphi
by Captnemo,
26. Sep 2014
Hi,
bei der Erstellung einer Komponente stoße ich doch immer wieder auf Dinge, die ich noch nie gemacht habe. Deswegen muß ich mal wieder Fragen.
Für viele von euch sicherlich selbsterklärend, aber ich hab's noch nicht kapiert.
Haben eine grafische Komponente, z.B. eine Listbox.
Diese MyListbox hat ja Items. Im meinem Fall sind die Items jetzt mal ein ganz simple TObject, organisiert in...