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

Вниз

ListBox   Найти похожие ветки 

 
Ser_Kham1   (2001-12-25 12:08) [0]

Добрый день мастера.
У меня два ListBoxa. Между их Itemaми взаимнооднозначное соответствие.
Вы мне не подскажите, можно ли как-нибудь сделать так, чтобы эти два ListBoxа можно было бы вместе прокручивать.
С уважением Ser_Kham


 
Alx2   (2001-12-25 12:53) [1]

Первое, что пришло в голову:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox2<>Sender then
ListBox2.TopIndex := ListBox1.TopIndex
else
ListBox1.TopIndex := ListBox2.TopIndex
end;
<\code>
Соответственно, нужно выполнить условие:
ListBox1.OnClick=ListBox2.OnClick=ListBox1Click


 
Ser_Kham1   (2001-12-25 13:17) [2]

А как быть, если захочется покручивать ListBox с помощью линейки прокрутки?
Ser_Kham


 
Builder   (2001-12-25 13:25) [3]

Вопрос данный пробегал раньше. Итог таков:
1. Я делал с помошью таймера - мне понравилось - прикольное небольшое отставание :)
2. Предлагалось отлавливать событие онСкролл и так сравнивать.

Чем кончилось - не помню :)


 
Alx2   (2001-12-25 13:26) [4]

Хм... Как бы я не стал делать - обрабатывать сообщение Idle и в нем вызывать присвоение TopIndexов (или по таймеру - но это еще хуже).

А сейчас пока попробую покопаться в листбоксовском WindowProc (так, для общего случая).


 
Alx2   (2001-12-25 15:39) [5]

Попробовал. С WindowProc что-то много возни получается :((
Но родился вот такой вариант:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
// Здесь хорошо бы, кроме адресата, еще и тип сообщения проверить...
if msg.hwnd = ListBox1.Handle then
ListBox2.TopIndex := ListBox1.TopIndex
else
if msg.hwnd = ListBox2.Handle then
ListBox1.TopIndex := ListBox2.TopIndex;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;



 
Ser_Kham1   (2001-12-25 15:45) [6]

Здорово!
Спасибо.
Ser_Kham



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

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

Наверх









Память: 0.57 MB
Время: 0.018 c
4-42611
Kan
2001-11-14 11:36
2002.01.14
Самоуничтожающаяся программа


4-42618
marconi
2001-11-11 10:23
2002.01.14
Имя в списке задач w9x


7-42584
Leon
2001-08-23 22:17
2002.01.14
Серийный номер материнской платы


7-42576
РУС
2001-09-25 22:14
2002.01.14
Информация


14-42569
Besa
2001-11-14 14:42
2002.01.14
Сертифицирование в Инете?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский