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;