Главная страница
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.069 c
8-1090748068
Окна
2004-07-25 13:34
2004.10.17
Допустим есть два окна, одно перекрывает другое..


8-1090435878
_Dragon
2004-07-21 22:51
2004.10.17
MP3 теги


4-1095226248
Konrads
2004-09-15 09:30
2004.10.17
%SystemRoot%


14-1095846283
080D:07BBh
2004-09-22 13:44
2004.10.17
Предложение.


1-1096540085
Dragon21
2004-09-30 14:28
2004.10.17
Interface