Printable View
سلام دو شرط رو میذارم
اجرا میشه ولی عمل نمیکنه اشکالم رو میشه بگین کجاست؟ مرسی از اساتید مهربون
If (combobox1.itemindex=1) and (listbox1.itemindex=1) then
begin
memo1.lines.add('sdfds')
اشکالم کجاست؟
اینو باید توی کدوم Event بذارم؟
جای Begin درسته؟
ولی خوب جاشو تغییر میدم ولی نمی یاد
سلام
کد مشکلی نداره من امتحان کردم ، نیازی به Begin نداره کد رو هم در OnChange مربوط به ComboBox و
Onclick مربوط به Listbox بنویس.
نکته : Index مربوط به ListBox و Combobox از 0 شروع میشه شاید شما روی آیتم اول کلیک می کردید که در این صورت کد عمل نمی کرده چون Index برابر 0 قرار می گرفتهکد:procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If (combobox1.itemindex=1)and (listbox1.itemindex=1) then
memo1.lines.add('sdfds')
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
If (combobox1.itemindex=1)and (listbox1.itemindex=1) then
memo1.lines.add('sdfds')
end;
end.
باز هم مشکلی بود بپرسید تا جایی که بتونم کمک می کنم
سلام دوست عزیز
اگر آیتم درون کمبوباکس برابر با یک بود و همچنین اگر لیست باکس یک بود این در مورد هر تغییری در کمبوباکس انجام میشه.
اما من توی سئوالم از کلیک بر روی لیست باکس حرف زده بودم.
و همینطور دوست خوبم مقادیر Itemindex رو هم میدونم .
برنامه اجرا میشه ولی بدون هیچ پیغام خطایی به درستی عمل نمیکنه
من یه دکمه ساختم و تمام کدهای بالارو در مورد دکمه انجام دادم به سادگی عمل کرد منتها بازهم من میخوام با کلیک روی آیتمهای Listbox مقدار داده شده رو توی Memo بریزه
نقل قول:
سلامنقل قول:
کد هایی که نوشتم رو باز هم امتحان کردم (وقتی Index مربوط به ComboBox یک باشه و روی Itemindex یک ListBox کلیک کنید sdfds در Memo نوشته میشه) مگه همین رو شما نمی خواستید؟
در مورد کلیک روی List Box شما خودتون به پست اولی که دادین نگاه کنید ببینید در این مورد چیزی نوشتین؟:46:
اگه سوالتون رو دقیق بپرسید و بگید می خواین چه کاری انجام بدید خیلی راحت تر میشه جواب داد و شما هم زود تر به جواب می رسید
در onclick مریوط به لیست بنویس