İndex de Seçili olan metni NewForm1.captiona aktarmak Nasıl

[İsmail_ycl]

Selam Millet
////////////////////////////////////////////////////////////
ListBox kutusunun İndex ini öğrene bilir değiştire bilir
Seçili olan indexteki Metni değiştire bilirim
Ama Seçili olon metni NewForm1.caption a nasıl aktara bilirim?

Kod: Tümünü seç

Procedure TForm1.CreatForm(Sender:Topject);
Begin
NewForm1:=TForm1.Create(Owner);
End;

Procedure TForm1.ListBox1Click(Sender:Topject);
Begin
NewForm1.Show;
//Burada ListBoxta seçili olan index numarasındaki metni 
//NewForm1.caption içeriğimde göstermek istiyorum.Ama Nasıl?
end;
procedure TForm1.Button1Click(Sender:Topject);
Begin
ListBox1.Items.Add(Edit1.Text);
ListBox2.Items.Add(Edit2.Text);
ListBox3:Items.Add(DateToStr(Date));
end;

Bana Bu konuda yardım edin lütfen
Yada Bunu TStream işlemi ile nasıl yapa bilirim
Yardım adenler için Şimdiden Teşekkürler

[sabanakman]

Kod: Tümünü seç

NewForm1.Caption:=ListBox1.Items[ListBox1.ItemIndex];

[İsmail_ycl]

Bu örneğinde Sadece NewForm1.captiona Index Numarasını verir
Benim istediğim Index numarası değilde İndex Numarasında Bulunan
Metni İstiyorum


Örn:

Kod: Tümünü seç

    //Liste
İndex    Metin
0             Ankara
1             Burse
2             Çorum
Varsayalımki   Indexten 1 seçili ama 1 değilde 1 de bulunan
Metni (Bursa) NewForm1.caption a aktarsın isityorum

[

[ibrahimcoban]

NewForm1.Caption:=ListBox1.Strings[ListBox1.ItemIndex

[mrmarman]

@İsmail_ycl

- @sabanakman doğru çözümü vermiş, sadece iç-içe fonksiyon yazdığından senin dikkatinden kaçmış olabilir...

Kod: Tümünü seç

NewForm1.Caption:=ListBox1.Items[ListBox1.ItemIndex];

ile

Kod: Tümünü seç

Var
  idx : Integer;
  Baslik : String;
begin
  idx := ListBox1.ItemIndex;
  Baslik := ListBox1.Items[idx];
  NewForm1.Caption:= Baslik;
end;

aynı anlamı ve çözümü sunar...