Скачать: CL | DM;

Как записать в 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.

---

← →
MSAlex ©   (2002-07-28 17:02) [9]

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

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;

---

← →
msalex ©   (2002-07-28 17:14) [10]

Или так:


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;


---

← →
Солер ©   (2002-07-28 18:59) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c