Ребята, если не сложно - ткните носом, а? Уже дураком себя чувствую - не могу понять почему так и все:

Код

unit Panel1; interface uses   SysUtils, Classes, Controls, ExtCtrls, Graphics, Windows; type   TPanel1 = class(TPanel)       FmyFont:TFont;   private     { Private declarations }       procedure Draw;       procedure Setmyfont(Value:TFont);   protected     { Protected declarations }   public     { Public declarations }     procedure CreateParams(var Params: TCreateParams); override;     procedure Paint; override;     constructor Create(aOwner:TComponent); override;   published     { Published declarations }     property Font:TFont read FmyFont write Setmyfont;   end; procedure Register; implementation procedure Register; begin   RegisterComponents('Samples', [TPanel1]); end; constructor TPanel1.Create(aOwner:TComponent); begin   inherited Create(AOwner);   FmyFont:=TFont.Create; end; procedure TPanel1.CreateParams(var Params: TCreateParams); begin    inherited;    FmyFont:=Canvas.Font; end; procedure TPanel1.Paint; begin    inherited;    Draw; end; procedure TPanel1.Setmyfont(Value:TFont); begin    if Value=FmyFont then exit;    FmyFont:=Value;    Canvas.Font:=Value;    Paint; end; procedure TPanel1.Draw; {var t:string; e:TRect;} begin    {t:='Проверка';    Canvas.Brush.Color:=Color;    e:=Rect(0,0, Width, Height);    DrawText(hInstance, PANSIChar(t), length(t), e, DT_EDITCONTROL);} end; end.

Установка этого компонента проходит нормально, но при потыке изменить свойство Font в дизайн-тайме Дельфи вываливает Access Violation в файле rtl70.bpl или просто виснет? при чем только после того, как снимешь выделение с компонента, т.е кликнешься где-нить рядом по форме например! Delphi 7.0 Enterprise - может у дельфей глюк или у меня все-таки не оттуда руки растут! Три дня уже бьюсь!

Поставил твой пример на D6e все нормально работает не глючит.

Попробуй заменить все присваивания на Assign.

Код

FmyFont:=Value;    на    FmyFont.Assign(Value);

Это сообщение отредактировал(а) tigger - 13.12.2005, 14:36

О, пасиба, заработало! ТАК Дельфя у меня еще не глючила - перепугалси даже!