Danke für deine Antwort.
Ich bekomme aber genau wie bei TObject immer die Fehlermeldung das Obj.Font nicht bekannt ist, also Font nicht bekannt ist.
Ich hab' jetzt folgende Möglichkeit entdeckt:
Delphi-Quellcode:
Procedure AAFont(ObjFont: TFont);
Var
LogFont: TLogFont;
Begin
Try
GetObject(ObjFont.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfQuality := ANTIALIASED_QUALITY;
ObjFont.Handle := CreateFontIndirect(LogFont);
Except
Exit;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
AAFont(Button1.Font);
AAFont(Label1.Font);
AAFont(Memo1.Font);
AAFont(Edit1.Font);
End;
Das funktioniert unter Delphi7 sehr gut und ist deutlich weniger Quelltext.
Gruß
Martin