Канва формы при создании новой компонеты.

[Ingushit]

Возможно ли при создании новой компоненты использовать канву формы??

[Stilet]

Почему бы нет? Компонент кидается на форму? Тогда Owner.Canvas укажет на ее канву.

[MadReason]

да, вполне. через конструктор.

  constructor Create(AOwner: TComponent); override;

AOwner вполне может быть указателем на форму, на которой размещен компонент.
так вот и добирайся до канвы

[Ingushit]

Попробовал вот так, но ничего не выходит:

unit QBB1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Variants, ExtCtrls;

var Form:TForm;
type
  TResBut = (onRazmer, offRazmer);
  TBB1 = class(TButton)

  private
    { Private declarations }
    FResBut : TresBut;

  protected
    { Protected declarations }
       procedure MouseDown( Button: TMouseButton;Shift: TShiftState; X, Y: Integer);override;
  public
    { Public declarations }

  published
    { Published declarations }

     constructor Create(aowner:Tcomponent);override;
     property ResBut: TResBut read FResBut write FResBut;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TBB1]);
end;

constructor TBB1.create(Aowner:Tcomponent);
begin
     inherited create(Aowner);
     Form:=TForm.Create(self);

end;

procedure TBB1.MouseDown( Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
    inherited;
    Form.Canvas.Rectangle(10,10,50,50);
end;

[MadReason]

constructor TBB1.create(Aowner:Tcomponent);
begin
inherited create(Aowner);
Form:=TForm.Create(self);

end;

не так.

constructor TBB1.create(Aowner:Tcomponent);
begin
inherited;
Form:=Aowner;
end;

вот как то так. или:

Form:=Aowner as tform;

[Ingushit]

Спасибо, работает=)

[Ingushit]

и еще один вопрос, как подключить другие компоненты. Мне нужен RadioButton. Чтобы прояснить ситуацию: при нажатии кнопки мыши появляется меню из RadioButton.

[MadReason]

меню из RadioButton

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

[Пепел Феникса]

Stilet, MadReason неверно, нельзя Owner трактовать иначе.
он не обязан быть.
Parent для кого придумали?

[Ingushit]

Сообщение от MadReason

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

меню из нескольких radiobutton)