Как записать в Label значение combobox

← →
Солер © (2002-07-28 14:14) [0]

Уважаемые, Мастера!
В ходе выполнения программы создаётся Label, в которой
записывается значение ComboBox.
Всё работает хорошо только один раз.
При изменении значения combobox новое записывается поверх первого и
два значения отображаются в Label вместе
Как сделать, чтобы в label отображалось только текущее значение
cmbobox.
Спасибо.

← →
saxon © (2002-07-28 14:30) [1]

Label1.Caption:=strNewStr;

← →
disco_worm (2002-07-28 14:33) [2]

Покажите код.

← →
object pascal (2002-07-28 14:45) [3]

Ты, небось, каждый раз новый лэйбл создаёшь. А надо его один раз создать.

← →
msalex © (2002-07-28 14:45) [4]

strNew:="testNew"; ComboBox1.Items.Add(strNew); Label1.Caption:=strNew;

← →
msalex © (2002-07-28 14:48) [5]

Или выделеное
Label1.Caption:=ComboBox1.text

← →
Солер © (2002-07-28 15:31) [6]

Вот код. Как убрать предыдущее значение label?

procedure TForm1.Button11Click(Sender: TObject);
var
lbl1:Tlabel;
begin

lbl1:=Tlabel.Create(Form4);
lbl1.Parent:=Form4;
lbl1.Top:=48;
lbl1.Left:=24;
lbl1.Width:=47;
lbl1.Height:=13;
lbl1.Caption:=StrNew(PChar(form1.ComboBox1.Text));

end;

← →
Malder © (2002-07-28 16:23) [7]

А что это вообще такое ?
При чем здесь Button1 ? И зачем ты много раз создаешь объект типа TLabel ?
И что такое lbl1.Caption:=StrNew(PChar(form1.ComboBox1.Text)); ?Нельзя просто написать :

lbl1.Caption:=form1.ComboBox1.Text;

вообщем, непонятно, что тебе не понятно.

← →
TTCustomDelphiMaster © (2002-07-28 16:37) [8]

А почему бы вам не создать lbl1 в design-time, а при нажатии на кнопку изменять lbl1.Caption.

А ты попробуй так

var lbl1:Tlabel; ... procedure TForm1.Button11Click(Sender: TObject); begin if lbl1=nil then lbl1:=Tlabel.Create(Form4); lbl1.Parent:=Form4; lbl1.Top:=48; lbl1.Left:=24; lbl1.Width:=47; lbl1.Height:=13; lbl1.Caption:=StrNew(PChar(form1.ComboBox1.Text)); end;

Или так:

var lbl1: TLabel; ... if lbl1=nil then begin lbl1:=Tlabel.Create(Form1); lbl1.Parent:=Form1; lbl1.AutoSize:=true; lbl1.Top:=48; lbl1.Left:=24; lbl1.Width:=47; lbl1.Height:=13; end; lbl1.Caption:=form1.ComboBox1.Text;

Спасибо
Всё получилось

Как записать в Label значение combobox Найти похожие ветки