انتقال اطلاعات از یک combobox به 2 editbox

[پوریا_م]

سلام
یک combobox یک دکمه و 2 editbox داریم
میخواهم با انتخاب یک آیتم از combo و زدن دکمه آیتم وارد edit اول شود
با انتخاب آیتم بعدی و زدن مجدد دکمه آیتم 2 وارد edit دوم شود
چطور این کار عملی است؟

[Delphi7_love]

از رویداد OnChange استفاده کنید:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:
edit1.Text:=combobox1.Text;
1:
edit2.Text:=combobox1.Text;
2:
edit3.Text:=combobox1.Text;
end;
end;

[hossein_h62]

از رویداد OnChange استفاده کنید:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:
edit1.Text:=combobox1.Text;
1:
edit2.Text:=combobox1.Text;
2:
edit3.Text:=combobox1.Text;
end;
end;

سلام
کد جناب Delphi7_love زمانی درست هستش که آیتمهای کمبوباکس رو بخواین به ترتیب وارد ادیتهاتون بکنید؛ در صورتیکه فکر نمیکنم قصد شما این باشه،
کد مورد نظر رو بصورت زیر انجام بدین :



procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Edit1.Text='' Then
Edit1.Text:=ComboBox1.Text
else
Edit2.Text:=ComboBox1.Text;
end;

[Delphi7_love]

من فکر کردم میخوان هر آیتم از combobox رو داخل یه ادیت خاص بریزند

[Pascal]

سلام
کد جناب Delphi7_love زمانی درست هستش که آیتمهای کمبوباکس رو بخواین به ترتیب وارد ادیتهاتون بکنید؛ در صورتیکه فکر نمیکنم قصد شما این باشه،
کد مورد نظر رو بصورت زیر انجام بدین :



procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Edit1.Text='' Then
Edit1.Text:=ComboBox1.Text
else
Edit2.Text:=ComboBox1.Text;
end;




کد جناب hosseine_h62 خوبه اما وقتی کاربر قصد داشته باشد عملیات را دوباره تکرار کند فقط ادیت دوم مقدار جدید را قبول می کند اما با این کد می توانید عملیات را بار ها انجام دهید


var
Form1: TForm1;
EditNum:Integer=0;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(EditNum);
if EditNum<= 1 then
begin
edit1.Text := ComboBox1.Text;
end;
if EditNum = 2 then
begin
edit2.Text := ComboBox1.Text;
EditNum:=0;
end;
end;