Главная страница
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.051 c
6-1086981860
Dimaxx
2004-06-11 23:24
2004.08.29
Скачивание файлов с использованием wininet


1-1092299878
Fynjy
2004-08-12 12:37
2004.08.29
Манифест и ListBox


1-1092308272
Vasislisk
2004-08-12 14:57
2004.08.29
TMainMenu (item прижать к правому краю формы)


8-1086771174
Юля
2004-06-09 12:52
2004.08.29
*.cdr , *.pdf - изображения в Image


9-1084131683
kas-t
2004-05-09 23:41
2004.08.29
3dsmax to md2