[Source]

В общем создаю 2 чекбокса на форме

Код:

TCheckBox.Create(...); 

и задаю им

Код:

Caption:='This is simple text...text';

как получить их Width ? Стандартом идет 97, но слов то больше и чекбокс "растягивается" а его width остается = 97.

[~TB~]

Если я правильно понял, что нужно:

Код:

var
  gg: TCheckbox;
begin
gg:=TCheckbox.Create(nil);
gg.Parent:=Form1;
gg.Caption:='This is simple text...text';
gg.Width:=5*Length(gg.Caption);
end;

[dr. F.I.N.]

Я бы немного по-другому пошел...(Учитывая, что шрифт комбобобкса может быть любой)

Код:

var
  gg: TCheckbox;
  c: TCanvas;
begin
gg:=TCheckbox.Create(nil);
gg.Parent:=Form1;
gg.Caption:='This is simple text...text';
c := TCanvas.Create;
c.Font.Assign(gg.Font);
gg.Width:=c.TextWidth(gg.Caption) + Offset; // Offset - константа равная отступу от левого края до начала текста в чекбоксе
c.Free;
end;