Dozent Опубликовано 27 октября, 2014 Поделиться Опубликовано 27 октября, 2014 День добрый! Ситуация такая: при удалении итема выбранным должен стать первый в списке итем lvDrugList.ItemIndex := 0; Да действительно от подсвечивается, но событие onChange не срабатывает. Подскажите что нужно сделать? Цитата Ссылка на комментарий
0 estra Опубликовано 27 октября, 2014 Поделиться Опубликовано 27 октября, 2014 unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView, FMX.StdCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure FormCreate(Sender: TObject); procedure ListView1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; li: TListViewItem; begin for i := 0 to 20 do begin li := ListView1.Items.Add; li.Text := IntToStr( i ); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListView1.Items.Delete( ListView1.Selected.Index ); ListView1.ItemIndex := 0; ListView1Change( ListView1 ); end; procedure TForm1.ListView1Change(Sender: TObject); begin ShowMessage( IntToStr( ListView1.Selected.Index ) ); end; end. Подойдет? Цитата Ссылка на комментарий
0 Администраторы Brovin Yaroslav Опубликовано 7 ноября, 2014 Администраторы Поделиться Опубликовано 7 ноября, 2014 Это ошибка, я завел багу во внутреннем трекере. А пока пользуйтесь вариантом от Estra. Цитата Ссылка на комментарий
0 Администраторы Brovin Yaroslav Опубликовано 7 ноября, 2014 Администраторы Поделиться Опубликовано 7 ноября, 2014 Посмотрел, это не ошибка, у TListView есть специальное событие OnDelete. Которое вызывается в момент удаления элемента. Цитата Ссылка на комментарий
0 VladimirS Опубликовано 7 ноября, 2014 Поделиться Опубликовано 7 ноября, 2014 Посмотрел, это не ошибка, у TListView есть специальное событие OnDelete. Которое вызывается в момент удаления элемента. Разве onChange не должно срабатывать каждый раз при изменении ItemIndex? http://docwiki.embarcadero.com/Libraries/XE7/en/FMX.ListBox.TListBox_Events OnChange published Occurs when the selection in the list box changes. Цитата Ссылка на комментарий
Вопрос
Dozent
День добрый!
Ситуация такая: при удалении итема выбранным должен стать первый в списке итем
Да действительно от подсвечивается, но событие onChange не срабатывает.
Подскажите что нужно сделать?
Ссылка на комментарий
4 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.