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

Вниз

Как сделать чтобы текс выбранного итема из листбокса попадал в   Найти похожие ветки 

 
Gnec ©   (2004-08-13 19:06) [0]

Приветствую всех.
Люди, пожалуйсто помогите. У меня есть лист бокс с кучей разных итемов, я хочу чтобы если клацнуть два раза по итему, его текст попадал в Memo, или RichEdit. Вобщем в любой компонент где можно текст редактить. Заранее благодарен.


 
GEN++ ©   (2004-08-13 19:26) [1]


procedure TForm1.ListBox1DblClick(Sender: TObject);
var
n:integer;
begin
   n:=ListBox1.ItemIndex;
    Edit1.text:=ListBox1.Items.Strings[n];
 //или
      Memo1.Lines.Add(ListBox1.Items.Strings[n]);
end;


 
Gnec ©   (2004-08-13 19:50) [2]

Спасибо огромное! Я только начинаю прогить, поэтому мало знаю. У меня проблема была с Strings[n]; я про н забывал ;)


 
Gnec ©   (2004-08-13 19:58) [3]

Ой, опять вопросец. А как сделать чтоб этот текст ещё помещался не на новую строку, а в положение текстового курсора??? Может быть заменить лист бокс на чтонибудь другое?


 
begin...end ©   (2004-08-13 20:04) [4]


> [3] Gnec ©   (13.08.04 19:58)

MemoName.SetSelTextBuf(PChar(ListBoxName.Items[n]));


 
Palladin ©   (2004-08-13 20:13) [5]

Никогда не говори "прогить"... прогят ламеры...


 
Gnec ©   (2004-08-13 20:52) [6]

Спасибо за то что просветили. А как говорят нормальные прогрмамисты???


 
GEN++ ©   (2004-08-13 23:52) [7]

>Gnec ©  
>А как говорят нормальные прогрмамисты???
Нормальные - пишут.
>А как сделать чтоб этот текст ещё помещался не на новую строку, >а в положение текстового курсора??? Может быть заменить лист >бокс на чтонибудь другое?
Можно использовать Items.Insert, если помещать перед строкой,
где стоит курсор.



Страницы: 1 вся ветка

Текущий архив: 2004.08.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.055 c
3-1091515008
}|{yk
2004-08-03 10:36
2004.08.29
Sequences - работа в процедуре


1-1092160559
4МО
2004-08-10 21:55
2004.08.29
Реестр


3-1091407833
Натали
2004-08-02 04:50
2004.08.29
IBTable.RecordCount


3-1091612556
сергей1
2004-08-04 13:42
2004.08.29
изменение текста в dbGrid


1-1092296452
V l a d i m i r
2004-08-12 11:40
2004.08.29
Как определить конец документа?