|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
добавить в листбох текст и содержание при клике отображалось в мемо1
добавит в листбох текст имя и содержание при клике отображалос в мемо1
|
#2
|
||||
|
||||
Видимо здесь или так
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Assign(ListBox1.Items); end; Код:
procedure TForm1.ListBox1Click(Sender: TObject); begin Memo1.Text:=(Sender as TListBox).Items[(Sender as TListBox).ItemIndex]; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
Цитата:
Код:
procedure TForm1.ListBox1Click(Sender: TObject); var lb: tlistbox absolute sender; begin Memo1.Text:=lb.Items[lb.ItemIndex]; end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
||||
|
||||
Цитата:
Код:
... with Sender as TListBox do Memo1.Text:= Items[ItemIndex]; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
я хочу что было вот на как на картинке |
#6
|
||||
|
||||
Даже с картинкой понимание ситуации легче не стало Имя вижу, а где "фамиля" лежит-то хоть?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Цитата:
в листбох отображалось толка имя Цитата:
фамилия в листбох не показовался Цитата:
вот на ниже картинке Последний раз редактировалось M.A.D.M.A.N., 25.03.2014 в 20:49. |
#8
|
||||
|
||||
blaccyee/eeyccalb
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
Есть много способов. Самой простой по ходу такой:
Код:
var Form1: TForm1; Persons:TStringList; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if not Assigned(Persons) then Persons := TStringList.Create; Persons.Add(Edit1.Text + ' ' + Edit2.Text); Listbox1.Items.Add(Edit1.Text); end; procedure TForm1.Listbox1Click(Sender: TObject); begin Memo1.Text := Persons[Listbox1.ItemIndex]; end; Последний раз редактировалось basmach, 26.03.2014 в 14:11. |
Этот пользователь сказал Спасибо basmach за это полезное сообщение: | ||
delpi12 (26.03.2014)
|
#10
|
|||
|
|||
Цитата:
спасибо что помог Цитата:
а как здес удалить выделенную Последний раз редактировалось M.A.D.M.A.N., 27.03.2014 в 07:24. |
#11
|
|||
|
|||
Цитата:
Код:
if ListBox1.ItemIndex>-1 then begin Persons.Delete(ListBox1.ItemIndex); ListBox1.Items.Delete(ListBox1.ItemIndex); end; |