Font-Editor löst AV bei eigener Komponente aus

[Sascha L]

Hi,

habe eine eigene Komponente die als Eigenschaft "Font" hat.

Codeausschnitt:

Delphi-Quellcode:

fMyFont: TFont;

// Im Public-Teil
property MyFont: TFont; read fMyFont write fMyFont;

// Im Constructor der Komponente
fMyFont := TFont.Create;

// Im Destroy der Komponente
fMyFont.Free;

(Falls die Syntax falsch ist, liegt es daran, dass ich das eben aus dem Kopf heraus geschrieben habe und nicht aus meinem Quellcode kopiert habe!)


Im Prinzip funktioniert auch alles. D.h. ich kann die Schriftart, etc. ändern, ohne dass es Probleme gibt.

Wenn ich aber im OI auf den kleinen Button "..." drücke, sodass der Font-Editor sich öffnet und ich dort dann etwas einstelle und auf OK klicke gibt es endlos viele AVs

Wie kann ich das verhindern bzw. was mach ich falsch?

Dieser Fehler trat bei Delphi 2005 und 2006 auf.

Gruß
Sascha

[Hawkeye219]

Hallo Sascha,

Du mußt für die neue Font-Eigenschaft eine Setter-Methode schreiben:

Delphi-Quellcode:

// in der Klassendeklaration
private
  procedure SetMyFont (AFont: TFont);
published
  property MyFont: TFont read FMyFont write SetMyFont;

// Implementierung
procedure TEChecker.SetMyFont (AFont: TFont);
begin
  FMyFont.Assign (AFont);
end;

So sollte es funktionieren.

Gruß Hawkeye

[Sascha L]

Macht das Read/write das nicht schon?

[Hawkeye219]

Der direkte Schreibzugriff kopiert nur den Zeiger, durch den Setter wird der Inhalt des Font-Objekts kopiert.

Gruß Hawkeye

[Sascha L]

Ok, dann ist alles klar.

Danke!