Всем привет.
Собственно когда писал код столкнулся с такой проблемой.
Вот код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | procedure TForm2.ListBox1Click(Sender: TObject);
var FileName:string;
Path : String;
begin
Path := ExtractFilePath(ParamStr(0))+ 'DB\base' + PathDelim;
ForceDirectories(Path);
FileName:=Path+ListBox1.Items[ListBox1.ItemIndex]+'.txt' ;
ListBox1.Items.LoadFromFile(Path+'Basecat1.txt');
CheckListbox2.Items.LoadFromFile(FileName) ;
end;
|
Суть очень проста выделяю строку нажимаю кнопку вписываю текст сохраняю. ОТкрываю пункт там уже текст и так далее.
Все хорошо, только вот почемуто перестало выделять эти строки. Если пишу в текстовик текст то все норм отображает,а мне надо что бы текст в текстовике меняло программно. А для это го нужно что бы строка была выделена так как при нажатии на кнопку меняется текст для выделенной строки,а строка не выделяется.
Вот код кнопки сохранения.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | procedure TForm2.Button15Click(Sender: TObject);
var s:string;
var FileName:string;
var Path : String;
p:tpoint;
begin
Path := ExtractFilePath(ParamStr(0))+ 'DB\base' + PathDelim;
ForceDirectories(Path);
FileName:='cat ';
ListBox1.Items.SaveToFile(Path+'Basecat1.txt');
ListBox1.items.SaveToFile(FileName) ;
CheckListbox2.Items.SaveToFile(FileName) ;
end;
|
15.11.2011, 20:02
Помогите пожалуйста.Не выделяет строки в ListBox
Линейный вид
