Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

ListBox   Найти похожие ветки 

 
bambina   (2002-12-15 15:15) [0]

Как можно имея 2 Listbox"a делать только один selected Item?
т.е. если в одном выбран item, то при нажатии на другой Listbox Item из первого перестаёт быть selected..


 
MBo   (2002-12-15 15:28) [1]

общий обработчик для обоих боксов
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if sender=listbox1 then
listbox2.ItemIndex:=-1
else
listbox1.ItemIndex:=-1
end;


 
bambina   (2002-12-16 09:39) [2]

ya eto vot tak sdelala.. No ono pochemu-to na ShowMessage pokazivaet vse esche staroe znachenie?!?!? :((
I ya ne znayu pochemu..

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
var listB: TListBox;
begin
if (ListBox1.ItemIndex <> -1) or (ListBox2.ItemIndex <> -1) then
begin
listB:=(FindComponent("ListBox"+ num) as TListBox);
Form1.SaveDialog1.FileName := listB.Items[listB.ItemIndex];
ShowMessage(Form1.SaveDialog1.FileName);
end;
end;

procedure TForm4.ListBox1Click(Sender: TObject);
begin
num := (Sender as TListBox).Name;
Delete(num,1, length(num)-1);
if StrToInt(num) = 1 then
begin
if ListBox2.ItemIndex <> -1 then
ListBox2.ItemIndex := -1;
end
else ListBox1.ItemIndex := -1;
end;


 
Lord Warlock   (2002-12-16 10:06) [3]

Так работает listb - приватный член класса формы

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ListB.ItemIndex>-1 then
ShowMessage(ListB.Items[ListB.ItemIndex]);
ListB.Free
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListB:=TListBox.Create(Self);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if sender=listbox1 then
begin
listbox2.ItemIndex:=-1;
listb:=ListBox1;
end
else
begin
listbox1.ItemIndex:=-1;
listb:=ListBox2;
end
end;


 
bambina   (2002-12-16 10:24) [4]

u menya vot eto ne poluchaetsya.......

Form1.SaveDialog1.FileName := listB.Items[listB.ItemIndex];
ShowMessage(Form1.SaveDialog1.FileName);

t.e. on ne zapisyvaet novoe imya v SaveBox (Form4 otkrivaetsya na
ne pravilnoe imya v stroke "filename" v savebox.. i nado umet vozmozhnost vybrat imya faila iz spiskov..


 
Lord Warlock   (2002-12-16 14:14) [5]

Ну странно, все работает и показывает...


procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ListB.ItemIndex>-1 then
Form1.SaveDialog1.FileName:=ListB.Items[ListB.ItemIndex];
ListB.Free
end;


Form1.procedure TForm1.Button1Click(Sender: TObject);
begin
...
Form2.ShowModal;
SaveDialog1.Execute
...
end;


 
Fanya   (2002-12-16 14:18) [6]

Просто неправильно зарегистрирован класс ListBox! Нужно выполнить алгоритм через канвас формы...



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

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.029 c
14-86174
Aristarh
2002-12-04 22:47
2002.12.26
Unreal 2003


1-85960
Versus31
2002-12-11 15:18
2002.12.26
Помогите. Срочно!!!


14-86168
krotik
2002-12-06 17:16
2002.12.26
Разница между Professional и Enterprise


6-86052
Repeater
2002-10-30 17:09
2002.12.26
Как ждать ответа от сокета?


6-86049
Alexec
2002-10-28 12:48
2002.12.26
Провайдер





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский