حذف آیتم در ComboBox

[Mask]

با سلام
10 عدد combobox دارم . آیتم های این 10 کمبو از شماره 1 تا 10 هست.
حالا میخام وقتی از کمبو شماره یک عدد 5 انتخاب شد از کلیه کامبو ها عدد 5 حذف بشه و وقتی تکس کمبو پاک شد دوباره عدد 5 به همه کمبو باکس ها اظافه بشه.
و این روند ادامه داشته باشه یعنی کامبو اول عدد یک و کامبو دوم عدد 2 و به ترتیب.
و از همه کامبو ها با انتخاب عدد ٰ- حذف شود.
ممنون از جوابتون.

[Felony]

سلام،
من چند بار سوالتون رو خوندم ولی منظورتون رو نفهمیدم .

[مهران رسا]

با سلام
10 عدد combobox دارم . آیتم های این 10 کمبو از شماره 1 تا 10 هست.
حالا میخام وقتی از کمبو شماره یک عدد 5 انتخاب شد از کلیه کامبو ها عدد 5 حذف بشه و وقتی تکس کمبو پاک شد دوباره عدد 5 به همه کمبو باکس ها اظافه بشه.
و این روند ادامه داشته باشه یعنی کامبو اول عدد یک و کامبو دوم عدد 2 و به ترتیب.
و از همه کامبو ها با انتخاب عدد ٰ- حذف شود.
ممنون از جوابتون.
خب مشکل کار کجاست ؟

[Mask]

ممنون از دوستان
یه جوره دیگه میگم.
من 10 تا کمبو باکس دارم.
هر کمبو باکسی دارای 10 آیتم به شماره های از 1 تا 10 داره یعنی به شکل زیر
combpbox1:
itemindex1 : 1
itemindex2 : 2
itemindex3 : 3
itemindex4 : 4
itemindex5 : 5
itemindex6 : 6
itemindex7 : 7
itemindex8 : 8
itemindex9 : 9
itemindex10 : 10
این خصوصیت برای همه 10 کامبو باکسه . یعنی هر 10 کامبو دارای 10 آیتم به شماره های از 0 تا 10 هست.
حالا کامبو باکس 1 رو انتخاب و تکس عدد 1 رو انتخاب میکنم. حالا میخام از 9 کامبو باقی مانده عدد 1 حذف شود(چون این عدد رو اختصاص دادم به این کامبو).
یعنی وقتی کامبو 2 رو باز میکنم از شماره 2 تا 10 داخلش باشه. و به ترتیب یعنی در کامبو 3 وقتی عدد 3 رو انتخاب می کنم عدد 3 از بقیه کامبو ها حذف شود.
سوالم اینه که گفتم.
البته اینم در نظر داشته باشیم که وقتی عدد 3 که الان به عنوان تکس کامبو 3 هست رو پاک کردیم به صورت اتوماتیک عدد 3 به همه کامبو ها دوباره اظافه بشه.
ممنون از دوستان.

[Felony]

سلام برادر ،

من قسمتی که برای حذف میخوای رو برات نوشتم ولی الان وقت ندارم کد قسمت بازگرداندن به حالت اولیه رو برات بنویسم ، خودت میتونی بنویسیش .

کد زیر رو تو رویداد OnSelect یکی از ComboBox ها بنویس و رویداد OnSelect کمبوهای دیگه رو برابر با رویداد OnSelect کمبویی که این کد رو توش نوشتی بزار :

var
I: Byte;
begin
for I := 0 to Self.ComponentCount-1 do
if Components[i] is TComboBox then
if TComboBox(Components[i]).Name<> TComboBox(Sender).Name then
TComboBox(Components[i]).Items.Delete(TComboBox(Components[i]).Items.IndexOf(TComboBox(Sender).Text));