Tbutton i TGroupBox

Ups..
t:= TGroupBox.Create(Form1);
t.parent := Form1;

Skal være:

t:= TButton.Create(GroupeBox1);
t.parent := GroupeBox1;

Virker det ikke det du har lavet ??


t:= TButton.Create(GroupeBox1);
t.parent := GroupeBox1;

Det virker fint hvis jeg laver GroupeBox1 i design fasen, men hvordan laver man de to componenter hvis det skal ske under kørrelse fasen. Og hvordan referere man til dem???

sådan her :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    aGroupBox : TGroupBox;
    aButton : TButton;
    procedure aButtonClick(Sender : TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.aButtonClick(Sender: TObject);
begin
  ShowMessage( (Sender as TButton).Caption);
  ShowMessage( (Sender as TButton).Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aGroupBox := TGroupBox.Create(Form1);
  aGroupBox.Parent := Form1;
  aButton := TButton.Create(aGroupBox);
  aButton.Top := 10;
  aButton.Left := 10;
  aButton.Name := 'HesteButton';
  aButton.Caption := 'Hest';
  aButton.OnClick := aButtonClick;
  aButton.Parent := aGroupBox;
end;

end.


og ved samme lejlighed har jeg også vist hvordan man laver en OnClick event.

Jens B

Hvad gør man så hvis man har et ukendt antal elemmenter som skal oprettes, eller sagt på en anden måde, hvordan opretter man et index over oprettet komponenter????

aGroupBox.Components[x];

indeholder de comp. der tilhører groupbox'en

Prøver den lige... Vender tilbage...

Takker...