Hallo, ist bei mir zwar schon eine Weile her, dass ich mir eine
Komponente selber machte, aber a bisserl was hab ich für Dich:
Bspl. anhand eines IniFile OpenDialogs
Delphi-Quellcode:
...
USES
dsgnintf; // bis Delphi 5 !!
...
TYPE
TLogFileNameProperty = CLASS(TPropertyEditor)
FUNCTION AllEqual: boolean; OVERRIDE;
PROCEDURE Edit; OVERRIDE;
FUNCTION GetAttributes: TPropertyAttributes; OVERRIDE;
FUNCTION GetValue: STRING; OVERRIDE;
PROCEDURE SetValue(CONST Value: STRING); OVERRIDE;
END;
PROCEDURE Register;
IMPLEMENTATION
...
PROCEDURE Register;
BEGIN
RegisterPropertyEditor(TypeInfo(STRING), TFlappError, 'LogFileName',
TLogFileNameProperty);
...
RegisterComponents('APP', [TFlappError]); // die Komponente selbst
END;
...
// --------------------------- LOG File ------------------------------------
FUNCTION TLogFileNameProperty.AllEqual: boolean;
VAR
FirstVal : STRING;
i : Integer;
BEGIN
FirstVal := GetStrValue;
Result := True;
i := 1;
WHILE Result AND (i < PropCount) DO
BEGIN
Result := Result AND (GetStrValueAt(i) = FirstVal);
Inc(i);
END;
END;
PROCEDURE TLogFileNameProperty.Edit;
VAR
Dlg : TOpenDialog;
BEGIN
Dlg := TOpenDialog.Create(Application);
TRY
WITH Dlg DO
BEGIN
Dlg.Filter := 'Logfile (*.log)|*.log|Textfile (*.txt)|*.txt|all Files|*.*';
Dlg.DefaultExt := '*.log';
Title := 'Logfile for ' + TComponent(GetComponent(0)).Name;
FileName := Value;
IF Execute THEN Value := FileName;
END;
FINALLY
FreeAndNil(Dlg);
END
END;
FUNCTION TLogFileNameProperty.GetAttributes: TPropertyAttributes;
BEGIN
Result := [paDialog]
END;
FUNCTION TLogFileNameProperty.GetValue: STRING;
BEGIN
Result := GetStrValue;
END;
PROCEDURE TLogFileNameProperty.SetValue(CONST Value: STRING);
BEGIN
SetStrValue(Value);
END;
und
Delphi-Quellcode:
TFlappError = CLASS(TComponent) // Hauptklasse FlappError
FFileName: STRING;
...
PUBLISHED
...
PROPERTY LogFileName: STRING READ FFileName WRITE FFileName;
END;
p.s.
obigen Code habe ich aus meinem Projekt kopiert, und ist so sicher
nicht lauffähig, da ich die Kompo für D7 geschrieben habe. Ab Delphi 6
ist es Vorschrift, dass die Runtime- und die Designtime Teile einer
Kompo in getrennten Dateien stehen müssen (aus lizenzrechtlichen
Gründen, wegen der Designtime Editoren)
p.p.s.
Auch kann ich nicht garantieren das alle Befehle auch in D4 vorhanden sind.
p.p.p.s.
Aber als Anstoß könnte der Code ja taugen ...