SIGSEV in Resize

[Mathias]

Ich habe eine neue Komponente von TGroupBox abgeleitet.
In dieser befindet sich eine CheckBox.
Wen ich der CheckBox ein neues Left in Resize zuordnen will, knallt es.
Wieso ?

Code: Alles auswählen

type
  TNewGroupBox = class(TGroupBox)
  private
    CheckBox: TCheckBox;
    constructor Create(AOwner: TComponent); override;
    procedure Resize; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    NewGroupBox: TNewGroupBox;
  public
  end;  

Code: Alles auswählen

constructor TNewGroupBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  CheckBox := TCheckBox.Create(Self);
  CheckBox.Parent := Self;
end;

procedure TNewGroupBox.Resize;
begin
  inherited Resize;
  CheckBox.Left := 10;   // Hier Knallt es
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  NewGroupBox := TNewGroupBox.Create(Self);
  NewGroupBox.Parent := Self;
end; 

Im Anhang die komplette Source.

[wp_xyz]

Weil Resize schon aufgerufen wird, bevor die Checkbox existiert. (Setze einen Breakpoint auf "cp := TCheckbox.Create" und auf "cp.Left := 10").

So geht's:

Code: Alles auswählen

procedure TNewGP.Resize;
var
  i: integer;
begin
  inherited Resize;
  if cp <> nil then
    cp.Left := 10;
end; 

[Mathias]

Sieht irgendwie unüblich aus.
So wie es aussieht, ruft der Constructor Resize auf.

[Winni]

Hallo!

Während Form.Create wird resize der Children mehrfach aufgerufen.
Habe solche crashes auch schon erlebet.
Workaround:

Code: Alles auswählen

procedure TNewGroupBox.Resize;
begin
  inherited Resize;
  if assigned (Checkbox) then CheckBox.Left := 10;   // Hier Knallt es
end;

Winni

[wp_xyz]

Sieht irgendwie unüblich aus.

Wieso? Im Constructor werden Höhe und Breite des Controls gesetzt.