Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как записать в Label значение combobox [D6, WinXP]

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

Солер (2002-07-28 18:59:00) [1]
Спасибо
Всё получилось

msalex (2002-07-28 17:14:00) [2]
Или так:

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;

MSAlex (2002-07-28 17:02:00) [3]
А ты попробуй так

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;

TTCustomDelphiMaster (2002-07-28 16:37:00) [4]
А почему бы вам не создать lbl1 в design-time, а при нажатии на кнопку изменять lbl1.Caption.

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

lbl1.Caption:=form1.ComboBox1.Text;

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

Солер (2002-07-28 15:31:00) [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;

msalex (2002-07-28 14:48:00) [7]
Или выделеное
Label1.Caption:=ComboBox1.text

object pascal (2002-07-28 14:45:00) [8]
Ты, небось, каждый раз новый лэйбл создаёшь. А надо его один раз создать.

msalex (2002-07-28 14:45:00) [9]
strNew:="testNew"; ComboBox1.Items.Add(strNew); Label1.Caption:=strNew;

disco_worm (2002-07-28 14:33:00) [10]
Покажите код.

saxon (2002-07-28 14:30:00) [11]
Label1.Caption:=strNewStr;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »