указатель на TCanvas

[xrob]

я создаю класс для отображения визуального компонента на форме

в создании и работе с окнами я не особо шарю,
поэтому создаю такой класс, который будет себя отрисовывать на канвасе формы.
а вообще следуя логике что TCanvas = TCanvas,
то на любом канвасе, хоть на кнопке, хоть в битмапе.

для реализации этой идеи я создал в классе поле в котором будет
храниться указатель на Canvas, на котором класс будет себя рисовать.

PCanvas:^TCanvas;

а после создания экземпляра класса написать

PCanvas:=@Form1.Canvas;

а в самом классе процедура

procedure Draw;
begin
PCanvas^.Draw(0,0,Frame); // нарисовать себя на указаном канвасе
end;

и все бы ничего, но строчка
PCanvas:=@Form1.Canvas;
выдает ошибку - Variable Required

поэтому вопрос, в чем я не прав и как правильно реализовать такую идею?

и еще один вопрос.
что если создать в классе поле
Canvas:TCanvas;
а потом присвоить ему Canvas формы:
Class.Canvas:=Form1.Canvas; ?

насколько я себе представляю, это будет хрень.
что-то типа если переменной b присвоить значение переменной a, а потом изменять переменную b.
значение переменной a при этом не изменится.

или в случае с канвасами это работает по-другому?

[Прик]

TCanvas - это объект (класс) и при объявлении его в разделе переменных (var):

var
  Cnv : TCanvas;

переменная Cnv будет содержать указатель на объект. Правда, его надо еще создать.
У формы есть уже Canvas (создается при создании формы) и заменять его нет никакой необходимости.
Его просто надо применять в самой форме и не городить огород.

В Дельфи переменные, ссылающиеся на объекты и есть указатели на них (не явные указатели, т.е. к ним не применяются символ "^").

Если необходимо рисовать в своем классе, то надо в нем объявить поле класса TCanvas, создать его и рисовать в нем не трогая канвы других компонентов.

Canvas:TCanvas;
а потом присвоить ему Canvas формы:
Class.Canvas:=Form1.Canvas; ?

Не будет никакой хрени, если только выбросить лишнеее слова Class и чтобы имя этого "поля" не совпадало с уже имеющимися полями в классе (впрочем, последнее не пропустит компилятор).
Поле будет содержать точно такую же ссылку на созданный в объекте класса Canvas и при изменении свойств в одном из них и там, и там будут изменения.
Только не очень понятна логика такого извращения. Иметь еще указатель на один и тот же TCanvas? Тогда надо осознавать какую задачу он будет решать.

...то на любом канвасе, хоть на кнопке, хоть в битмапе.

Если класс TBitMap предоставляет свой Canvas для обращения к нему извне, то кнопка таки нет. И чтобы его "вытащить" у кнопки надо еще исхитриться.

[WhiteSpirit]

я создаю класс для отображения визуального компонента на форме

Наследуйте свой компонент от дельфовского класса TGraphicControl, у него есть поле Canvas. Для рисования на этом канвасе придуман абстрактный метод Paint. В реализации своего класса помещайте в этот метод отрисовку на экране.

TMyClass = class(TGraphicControl)
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent);
  end;
...
constructor TMyClass.Create(AOwner: TComponent);
begin
inherited;
Canvas.Brush.Color:=clRed;
Canvas.Pen.Width:=3;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mc:=TMyClass.Create(Self);
mc.Parent:=Self;
mc.Left:=100;
mc.Top:=100;
mc.Width:=200;
mc.Height:=150;
end;

procedure TMyClass.Paint;
begin
Canvas.Ellipse(2, 2, Width - 2, Height - 2);
end;

[xrob]

эта фраза

переменная Cnv будет содержать указатель на объект

открыла мне глаза на смысл жизни! =)
я просто раньше не знал что это так.
я думал Cnv это и есть сам канвас,
а если получается что сам по себе канвас лежит где-то,
а Cnv это ссылка на него,
то тогда получается мою задачу можно решить просто:

Test.MyCanvas:=Form1.Canvas;

WhiteSpirit,
там у меня слово Class не в смысле класс,
а в смысле имя создаваемого экземпляра класса,
так что оно там не лишнее.
а за совет - спасибо! воспользуюсь когда-нибудь в будующем,
сейчас не хочу возиться с наследованиями
и тем более со стандартными классами делфи.

всем спасибо за внимание =)