Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

Обработка событий в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
14-1096269415
Бар
2004-09-27 11:16
2004.10.17
Уважаемые знатоки! Какой инсталлятор


1-1097053291
Belkova
2004-10-06 13:01
2004.10.17
StrToDate


1-1096885990
Aleksandr.
2004-10-04 14:33
2004.10.17
Помогите с теорией, как организовать работу объекта.


1-1096814924
V l a d i m i r
2004-10-03 18:48
2004.10.17
Экземпляр формы (создание)


3-1095789377
Maverick
2004-09-21 21:56
2004.10.17
PL SQL