Новый шрифт в компоненте

← →
Navi (2003-07-19 08:06) [0]

Здравствуйте! Достали шрифты. Делаю компонент (см. ниже). Инсталирую, при попытке раскрыть список "FocusFont" получаю "Unable to expand" при нажатии "..." - AV in Vcl50.bpl. Что не так-то?
Спасибо.
Код:
type
TFocusListBox = class(TCustomListBox)
private
FFocusFont: TFont;
protected
procedure SetFocusFont(Value: TFont);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property FocusFont: TFont read FFocusFont write FFocusFont;
.
end;

implementation

constructor TFocusListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFocusFont:= TFont.Create;
end;

destructor TFocusListBox.Destroy;
begin
FFocusFont.Free;
inherited;
end;

procedure TFocusListBox.SetFocusFont(Value: TFont);
begin
FFocusFont.Assign(Value);
end;

← →
Юрий Зотов (2003-07-19 09:28) [1]

property FocusFont: TFont read FFocusFont write SetFocusFont;

И еще - SetFocusFont лучше объявить так:
procedure SetFocusFont( const Value: TFont);

Новый шрифт в компоненте Найти похожие ветки