Hallo,
ich möchte mir eine Variante von TListBox kreieren (z.B. TLogListBox), bei der die Methode Items.Add durch meine eigene Variante überladen wird.
Darin möchte ich z.B. jedes hinzugefügte Item auch in eine Log-Datei schreiben.
Ich habe sowas (abgeleitetes Objekt mit geänderter Methode) noch nie gemacht.
Kann mir jemand bitte Starthilfe geben?
Oder gibt es eine einfachere Möglichkeit?
Danke.
P.S.
Soweit bin ich:
Delphi-Quellcode:
unit ULogListBox;
interface
uses
Windows, Messages, SysUtils, Classes, StdCtrls;
type
TLogStrings =
class(TStrings)
public
function Add(
const S:
string): Integer;
virtual;
end;
type
TLogListBox =
class(TListBox)
private
_logfile:
string;
published
property LogFile:
String read _logfile
write _logfile;
end;
procedure Register;
implementation
function TLogStrings.Add(
const S:
string): Integer;
begin
Result := GetCount;
Insert(Result, S);
writeln(s);
end;
procedure Register;
begin
RegisterComponents('
Samples', [TLogListBox]);
end;
end.
Wie verheirate ich die modifizierten TStrings mit TLogListBox?