Вниз
Скачать: CL | DM;

Как получить значение выделенной строки в ListBox?   Найти похожие ветки 

← →
Artemij   (2003-06-11 13:04) [0]

Помогите, пожалуйста, начинающему програмисту! Никак не могу добиться, чтобы выделенная строка в ListBox отображалась, скажем в Edit1. Из базы данных (Paradox) я переношу инфо определённого столбца в ListBox, а потом, при выделении какой-либо строки, хочу использовать её значение в другом месте. Может ListBox и не подходит для такой манинуляции? Заранее спасибо.


← →
clickmaker ©   (2003-06-11 13:09) [1]

ListBox.Text
ListBox.Items[ListBox.ItemIndex]


← →
andrey_pst ©   (2003-06-11 13:24) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add("Иван Петров");
ListBox1.Items.Add("Вася Пупкин");
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

end.


← →
Artemij ©   (2003-06-11 13:35) [3]

Оболденное спасибо! С этой минуты я обожаю сайт www.delphimaster.ru!


← →
Palladin ©   (2003-06-11 13:41) [4]

Я бы на твоем месте справку бы обожал побольше, не надейся что сможешь получить тут ответ на все вопросы...


← →
Ig   (2003-06-12 20:32) [5]

Palladin
Подскажи какую имеменно "справку" Ты имеешь ввиду, если справку в Delphi, то допустим если это Delphi 6,7 ? , там справочная система на английском языке!?!
:(


← →
Palladin ©   (2003-06-12 20:59) [6]


> <Ig> (12.06.03 20:32)

извини парень. в таком случае программирование не для тебя...


← →
Ghost ©   (2003-06-13 08:42) [7]

> Palladin

:)



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c
9-83844
[Baradoo]
2003-01-14 21:38
2003.06.26
Небольшое демо...


14-84616
Cobalt
2003-06-07 00:48
2003.06.26
Отчет об


14-84761
Shluz
2003-06-06 00:29
2003.06.26
SMS сообщения


3-83978
McSimm2
2003-05-29 08:27
2003.06.26
Размер поля


7-84807
Alkinoy
2003-04-15 16:56
2003.06.26
Научите, пожалуйста, обрабатывать прерывания.




   Наверх