ComboBox

[Lonix]

Допустим у нас в Combobox идут слова (Россия, Германия, Англия), мы выбираем германию, тогда в label высвечивается Германия, если другое слово высвечивается другое?

[Shuraken]

procedure TForm1.ComboBox1OnChange(Sender: TObject);
begin
  label1.Caption := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;
 
или на лету
...
ComboBox1.Style = csOwnerDrawFixed;
...
type
  TFriendlyCustomComboBox = class(TCustomComboBox);
procedure TForm1.ComboBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if odSelected if State then
  begin
    label1.Caption := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  end
    else
    TFriendlyCustomComboBox(ComboBox1).DrawItem(Index, Rect, State);
end;

[_SacreD_]

У меня такой вопрос, например в DriveComboBox отображаются диски... в лэйбле мне надо отобразить свободный размер и занятый на диске, не могу никак сделать... написал процедуру что бы находила свободный обьем диска например, но находит его 1 раз при запуске и все, не знаю как сделать,что бы в лэйблах инфо о свободном/занятом месте менялось, при изменении DriveComboBox например с диска С на D... помогите решить эту проблему

[mihali4]

написал процедуру что бы находила свободный обьем диска например, но находит его 1 раз при запуске и все

Видимо, процедура завязана на событие OnCreate формы? Поэтому и отрабатывает только один раз.
По аналогии с уже рассмотренным - эту вашу процедуру вызывайте по событию ComboBox1OnChange.

[Alex21]

Сообщение от Lonix

Допустим у нас в Combobox идут слова (Россия, Германия, Англия), мы выбираем германию, тогда в label высвечивается Германия, если другое слово высвечивается другое?

label1.caption:=form1.ComboBox1.Text;