Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];

Вниз

Как инвертировать выделение в lisbox е?   Найти похожие ветки 

 
Гриха ©   (2005-09-01 07:37) [0]

Сабж


 
begin...end ©   (2005-09-01 08:41) [1]

var
 I: Integer;
begin
 with ListBox do
   for I := 0 to Pred(Items.Count) do
     Selected[I] := not Selected[I]
end.

P.S. Конечно, свойство ListBox.MultiSelect должно быть установлено в True.


 
КиТаЯц ©   (2005-09-01 08:45) [2]

procedure TMainForm.Button1Click(Sender: TObject);
 var i: Integer;
begin
 for I:=0 to CheckListBox1.Items.Count-1 do begin
   CheckListBox1.Checked[i]:= not CheckListBox1.Checked[i];
 end;
end;


 
Гриха ©   (2005-09-01 08:48) [3]

Все просто...

Я просто немного устал...:)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.041 c
4-1122734301
lordalexander
2005-07-30 18:38
2005.09.25
BlockInput


6-1117640758
Flame
2005-06-01 19:45
2005.09.25
idhttp


2-1123885149
Витёк
2005-08-13 02:19
2005.09.25
Обработка события входа и выхода курсора мыши!


3-1123656843
Denis
2005-08-10 10:54
2005.09.25
Access не воспринимает запрос


14-1125641670
Juice
2005-09-02 10:14
2005.09.25
Быть ли ХП на моем компе ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский