sFontComboBox1 компонента Alfa control

[Polotenchik]

Как задать свойство text компоненту sFontComboBox1 ? Т.е я прописываю в text шрифт, который должен отображаться по умолчанию, жму ентер и поле text вновь пустое. Пробовал кодом:

sFontComboBox1.text:='Название шрифта';

тоже бесполезно.

Заранее спасибо.

[Neeter]

А вы выставляйте ItemIndex вместо свойства Text:

procedure TForm1.bt_1Click(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to cbox_1.Items.Count - 1 do
  if cbox_1.Items[i] = 'Arial' then cbox_1.ItemIndex := i;
end;

[Polotenchik]

Neeter, спасибо!

Блин а как обращение к нему сделать? Т.е по нажатию на кнопку например в caption формы вывести выбранный шрифт?

form4.Caption:=sFontComboBox1.Items.Text;

?!

Чет не удобно как-то компонент сделали...

[Neeter]

В точности как ComboBox.

form4.Caption:=sFontComboBox1.Items[sFontComboBox1.ItemIndex]

Хотя можно просто

form4.Caption:=sFontComboBox1.Text

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

if sFontComboBox1.ItemIndex<0 then exit;
form4.Caption:=sFontComboBox1.Items[sFontComboBox1.ItemIndex]

Neeter, да вы правы
с просоня недосмотрел

[Neeter]

Пепел Феникса, только .Text в конце не надо.

[Polotenchik]

извините за эти тупые вопросы. Просто почему-то в caption формы он не хотел запихивать название шрифта, потому и возникли вопросы. В edit все отлично работает! Спасибо!

[LeonSmile]

Воспользуйтесь приведением типов.
Кодrocedure TForm24.FormCreateSender: TObject;begin if TComponentSender.Name = Button1 then begin ShowMessageНажата кномпочка; end;end;Или если нужно присвоить значение .Text компоненту типа TEdit на форме:
Кодrocedure TForm24.FormCreateSender: TObject;begin if Sender is TEdit then begin TEditSender.Text := Нажата кномпочка; end;end;