Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.043 c
14-1096519899
NewDelpher
2004-09-30 08:51
2004.10.17
Сахарный диабет


6-1092032506
fylhtq
2004-08-09 10:21
2004.10.17
А кавк програмно подключить сетевой ресурс?


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


3-1095565861
Fedia
2004-09-19 07:51
2004.10.17
Остановка выполнения SQL запроса


14-1096254807
Soft
2004-09-27 07:13
2004.10.17
Лохотрон форева: Антенный Усилитель





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