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

Вниз

Обработка событий в TListView   Найти похожие ветки 

← →
diabolik ©   (2004-09-29 22:33) [0]

Мастера!!!Необходима ПОМОЩЬ по компоненту.
Существует форма, на ней арсположен TreeView (параметры отображения vsReport), а так же 2 кнопки. TreeView заполняется в процессе прогона программы.
1. Две кнопки предназначены для перемещения записей в Treeview и изменения порядка их отображения. Предполягаю, что изменение происходит через свойства сласса TListItem. Как написать обработчик для кнопок?
2. Еще на форме есть TEdit. Как обработать событие (и самое главное какое) чтоб при изменении фокуса записи (мышью либо клавишами с клавы) в этом TEdit отображалась инфа с TListView.
При обработке события OnMouseDown и при клике на пустой области ListView (не на самой записи) возникает исключительная ситуация.

Спасибо

---

← →
Palladin ©   (2004-09-29 22:40) [1]

TreeView это название компонента или чего? или все таки ListView...
Задай вопрос нормально!


> Как написать обработчик для кнопок?

Используя клавиатуру


> При обработке события OnMouseDown и при клике на пустой
> области ListView (не на самой записи) возникает исключительная
> ситуация

У тебя ошибка в программе (С) АП

Вообще говоря для решения твоих сумбурных вопросов достаточно головы и справки. Ну и знания синтаксиса паскаля.

---

← →
diabolik ©   (2004-09-29 23:03) [2]

Прошу прощения TListView

В том то и дело что справки и головы не хватает.

---

← →
Defunct ©   (2004-09-30 00:33) [3]

> Как написать обработчик для кнопок?

Можно взять второй комп, установить на него дос и текстовый редактор, в нем и написать.

Можно, открыть блокнот и написать в нем.

Ну а можно воспользоваться редактором делфи, просто кликнуть в на эти кнопки и написать обработчик.

> Как обработать событие (и самое главное какое) чтоб при изменении фокуса записи (мышью либо клавишами с клавы) в этом TEdit отображалась инфа с TListView.

procedure TFotm1.FListViewSelectItem(Sender: TObject;
 Item: TListItem; Selected: Boolean);
begin
 If Selected Then
    Edit.Text := FListView.Selected.Caption;
 Else
   Edit.Text := "<нет выбранного пункта>";
 End;
end;

---

← →
Palladin ©   (2004-09-30 00:40) [4]

1 TListView.Items.Insert, TListView.Items.Delete
2 TListView.OnSelectItem, TEdit.Text, TListView.Selected

---

← →
diabolik ©   (2004-09-30 07:27) [5]

Большое спасибо.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.051 c