VPF::Вопрос о ListBox1 - Форум программистов

Goph

Дата 28.10.2002, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 9.5.2002
Где: Кривой Рог

Репутация: нет
Всего: нет

Такая проблема:
Допустим есть определенный список в ListBox1 как описать события для каждого Items оддельно чтобы допустим при нажатии Items[0] Edit1 принимало одно значение, а при нажатии , даже при наведении, Edit1 принимало другое значение?
СПАСИБО!

--------------------

Воображение гораздо важнее знаний!
(Эйнштейн)

Song

Дата 28.10.2002, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

TListBox.ItemAtPos()

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Medved

Дата 29.10.2002, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Song, дай ну хоть маленький пример кода, а?

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

rhf

Дата 29.10.2002, 03:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 13.8.2002

Репутация: нет
Всего: нет

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
n:integer;
begin
with Sender as tListBox do
begin
n:=ItemAtPos(point(X,Y),TRUE);
case n of
0: // под курсором items[0]
1: // под курсором items[1]
.........
-1: // под курсором нет элемента ;
end;
end;
end;

Song

Дата 29.10.2002, 03:21 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Код

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 try
  With TListBox(Sender) Do
   Edit1.Text:=Items[ItemAtPos(ScreenToClient(Mouse.CursorPos),True)];
 except
 end;
end;

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Дата 29.10.2002, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Ну если как говоришь список определённый тогда вот для нажатия

Код

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex = 1 then Edit1.text:='rrr';
end;

Medved

Дата 29.10.2002, 04:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Спасибо за пример!

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »