Форум: "Потрепаться";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];
Вниз
LISTBOX!!! - hhhheeeeeellllppppppp!!!!!!!!! Найти похожие ветки
← →
Sandman25 (2003-12-23 16:50) [40][39] Ru © (23.12.03 16:23)
Зачем 4? Sender же есть.
← →
Ru (2003-12-23 16:54) [41]>Sandman25 © (23.12.03 16:50) [40]
читаем ветку с начала и приходим к выводу, что для обеспечения нормального восприятия полученной информации пример должен быть на том же уровне
← →
Sandman25 (2003-12-23 16:56) [42][41] Ru © (23.12.03 16:54)
Хлопая себя по лбу...
-А...
-Семен Семеныч...
← →
REA (2003-12-23 17:34) [43]Все на борьбу с листбоксами...
Мне почему то кажется, что после решения проблемы лучше никому не станет. Скорее наоборот.
← →
Mike Kouzmine (2003-12-23 17:38) [44]REA © (23.12.03 17:34) [43] Почему же. Может какой-нибудь малыш из далекой Африки хоть на секунду станет счастливее...
← →
Igorek (2003-12-23 17:52) [45]
> Mike Kouzmine ©
> Ru ©
Народ, проще все. Один обработчик на все листбоксы и в нем такое:
var
Index: Integer;
begin
if Sender = LB1 then
Index := LB1.ItemIndex(LB1.Text)
else
if Sender = LB2 then
Index := LB2.ItemIndex(LB2.Text)
else
if Sender = LB2 then
Index := LB3.ItemIndex(LB3.Text)
else
Index := LB4.ItemIndex(LB4.Text)
LB1.DeleteItem(Index);
LB2.DeleteItem(Index);
LB3.DeleteItem(Index);
LB4.DeleteItem(Index);
Сорри, если методы где попутал.
← →
Ru (2003-12-23 18:04) [46]>Igorek © (23.12.03 17:52) [45]
во-первых лень напрягаться
во-вторых если человек так реагирует даже на попытки помощи, то уложнять не следует, пример должен быть как можно проще
← →
MVova (2003-12-23 18:07) [47]
> Igorek © (23.12.03 17:52) [45]
Это круто.
подумай про TListBox(Sender)
← →
Palladin (2003-12-23 19:30) [48]:)
← →
ssk (2003-12-23 19:40) [49]рульная ветка
← →
Marser (2003-12-23 20:00) [50]Вот только мне подумалось, что форум оскучнел, сразу появилось несколько веток-опровержений. Так держать, господа LMD!
← →
Style (2003-12-23 20:05) [51]а к какой категории относит себя господин Marser © ?
← →
app (2003-12-23 20:16) [52]Личная переписка, у господина Marser доступна почта, вот туда и пошли свой вопрос.
← →
app (2003-12-23 20:17) [53]Ответ ествествнно, если будет желание, также по почте, ответный адрес тоже доступен.
← →
Style (2003-12-23 20:28) [54]2 app
- Сорри, так и сделал можно вырезать!
← →
app (2003-12-23 20:52) [55]Оставьлю для других.
← →
Спрашивающий_ (2003-12-24 03:20) [56]To ИЛЮХА ©
procedure TForm1.Button1Click(Sender: TObject);
var
I:Word;
J:SmallInt;
begin
J:=ListBox1.ItemIndex;//Нужный Items(ИЛЮХА © определяйся сам, вариантов много )
If J>=0 Then
For I:=0 To Form1.ComponentCount-1 Do
If Form1.Components[I] is TListBox Then
TListBox(Form1.Components[I]).Items.Delete(J) ;
end;
← →
Германн (2003-12-24 03:59) [57]Пока нет ответа на
KSergey © (23.12.03 11:26) [25]
"Совершенно не понятно как связаны "333" из первого LISTBOX-a и "ddd" "888" "rrr", из 3-ч других LISTBOX-ов"
любой ответ будет не хуже этого:
Randomize;
for i:=0 to Form1.ComponentCount-1 Do
If Form1.Components[I] is TListBox Then begin
k:=Random(TListBox(Form1.Components[I]).Items.Count);
TListBox(Form1.Components[I]).Items.Delete(k) ;
end;
← →
KSergey (2003-12-24 08:37) [58]А где же наш доблестный автор?? Я, сказать по-правде, надеялся, что он появится.... растолкует мне, недалекому...
← →
mfender (2003-12-25 12:29) [59]Здорово. От души развлекся. Как в баню сходил. Заново народился. Поорать бы счас на радостях то... А!!? А-а-а!!!!
← →
Marser (2003-12-26 20:40) [60]
> Style © (23.12.03 20:05) [51]
> а к какой категории относит себя господин Marser © ?
Полубог ;-)
> app © (23.12.03 20:16) [52]
> Личная переписка, у господина Marser доступна почта, вот
> туда и пошли свой вопрос.
Marser "a, я в анкете пол указал конкретно(если у кого-то вызывает сомнения имя :-) )
← →
Nous Mellon (2003-12-26 20:43) [61]
> Полубог ;-)
Нехорошо
← →
Marser (2003-12-27 00:37) [62]
> Nous Mellon © (26.12.03 20:43) [61]
>
> > Полубог ;-)
>
> Нехорошо
А что, на такие вопросы надо серьезно отвечать? Прочитав письмо, я вообще хотел послать открытым текстом, но потом нашел ветку и решил отшутиться.
← →
Style (2003-12-27 11:57) [63]Marser ©
Ну так пошли открытым текстом..
Вот я например - лесоруб ;)
Вроде ничего не знаю, зато топором умею махать.
Просто я не понимаю, когда один человек начинает считать другого LMD, по сравнению с собой? Это начинает вызывать некоторую неприязнь.
Сейчас на столько вырос компьютерний мир в ширину, т.е. появилось куча всяких направлений и даже видов компьютерной деятельности - ну нельзя так просто обозвать человека ламером, если он в чем то не прав - вообще LMD помоему это глупая оценка, а если человек хамит явно - то это уже флудер или бык! :)
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];
Память: 0.55 MB
Время: 0.01 c
