delphi combobox edit

[yunusemre]

merhabalar  birşey sormak istiyorum comboboxdan ilk seçtiğimi edit1e 2.seçtiğimi edit2ye nasıl yazdırabilirim

[dilanorkan]

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
edit1.Text:=ComboBox1.Text;
end
else
begin
Edit2.Text:=ComboBox1.Text;
end;
end;

bunu dene dostum

[yunusemre]

(18-05-2022, Saat: 20:58)dilanorkan Adlı Kullanıcıdan Alıntı: procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 if edit1.Text='' then
   begin
     edit1.Text:=ComboBox1.Text;
   end
   else
   begin
     Edit2.Text:=ComboBox1.Text;
   end;
end;

bunu dene dostum

çok  teşekkür ederim

[COMMANDX]

Comboboxun on change eventine yazılacak

begin
if  Combobox1.itemindex=0 then begin
edit1. text:= Combobox1.items.strings[0];
end;
if  Combobox1.itemindex=1 then begin
edit2. text:= Combobox1.items.strings[1];
end;

[hi_selamlar]

Merhabalar,

 

case Combobox1.ItemIndex of 
 0 : Edit1.Text:=Combobox1.Items.Strings[0];
 1 : Edit2.Text:=Combobox1.Items.Strings[1];
end;

Kolay gelsin.

[yunusemre]

(19-05-2022, Saat: 13:01)COMMANDX Adlı Kullanıcıdan Alıntı: Comboboxun on change eventine yazılacak

begin
if  Combobox1.itemindex=0 then begin
edit1. text:= Combobox1.items.strings[0];
end;
if  Combobox1.itemindex=1 then begin
edit2. text:= Combobox1.items.strings[1];
end;

teşekkür ederim

---

(19-05-2022, Saat: 14:15)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

 

case Combobox1.ItemIndex of 
 0 : Edit1.Text:=Combobox1.Items.Strings[0];
 1 : Edit2.Text:=Combobox1.Items.Strings[1];
end;

Kolay gelsin.

teşekkür ederim

[mcuyan]

MAntığı şöyle kurman gerek..
Hangi olayda (Event) gerçekleşmesi gerekiyor.. Tıklandığında mı (OnClick) yoksa Değiştiğinde mi (OnChange)..

Normal şartlar altında onchange kullanman gerek. Ama Comboyu runtime dolduruyor isen bu yöntem oncreate yada onshow olayında patlar.. Ona göre yolunu çizmen gerek.