Labelde Satır kayma

[tugsat]

Merhaba arkadaşlar;

Benim hazırladığım programın bi yerinde şöyle bişey yapıyorum.

Kod: Tümünü seç

borclar.Table1.Open;
borclar.Table1.First;
while not borclar.Table1.EOF do
  begin
    borclar.Table1.next;
    if borclar.Table1Son_Odeme_Tarihi.text=datetostr(now) then
   label1.Caption:=label1.Caption+'  '+
   'Kritik Borç Olunan Firma Adı:'+'  '+
   borclar.Table1BorcluOlunanFirmaKisi.Text+
   '  '+'Borç Miktarı:'+
   '  '+borclar.Table1Borc_Miktari.Text
 else
 label1.caption:='Kritik Borcunuz Bulunmuyor..';
  end;

Bu şekilde tabloyu başton sona tarıyor tarihi bugüne uyanları bu labelde gostertiyorum.Ama mesela 5 tane kayıt uyuyor diyelim labelde bunlar peş peşe devam ettiğinden form boyutu uzuyor gidiyor dandik oluyor:D
ben

'Kritik Borç Olunan Firma Adı:'+' '+
borclar.Table1BorcluOlunanFirmaKisi.Text+
' '+'Borç Miktarı:'+
' '+borclar.Table1Borc_Miktari.Text

bu kısımdan sonra hep bi alt satıra yazmasını istiyorum labelde bu mümkünmü
mümkünse nasıl yapabilirim,yardımlarınız için şimdiden teşekkür ederim.

[conari]

Labelda olmaz bildiğim kadari ile
listbox veya Memo kullan.

Kod: Tümünü seç

memo.items.add()
listbox.items.add()

[tugsat]

Kod: Tümünü seç

begin
borclar.Table1.Open;
borclar.Table1.First;
while not borclar.Table1.EOF do
  begin
    borclar.Table1.next;
    if borclar.Table1Son_Odeme_Tarihi.text=datetostr(now) then
   listbox1.Items.Add('Kritik Borç Olunan Firma Adı:'+' '+
   borclar.Table1BorcluOlunanFirmaKisi.Text+
   ' '+'Borç Miktarı:'+
   ' '+borclar.Table1Borc_Miktari.Text)
 else
 listbox1.Items.Text:='Kritik Borcunuz Bulunmuyor..';
  end;

önerin için teşekkür ederim abi.
Ancak ben labelde yapmadan önce zaten listboxda denedim yukardaki gibi
ancak listboxda direk Kritik borcunuz bulunmuyor.. yazıyor.Ama normalde 3 tane kayıt gözükmesi gerekir.
Gözükmüyor.Labelde doğru oluyor ama labeldede işte satır uzayıp gidiyor.. :S ?

[tugsat]

else
listbox1.Items.Text:='Kritik Borcunuz Bulunmuyor..';

Tamam elseden sonrasını silince oldu neden böyle olduğunu anlamadım ama neyse..

[emin_as]

Label da 2 - 3 satırlı çalışabilirsin. Bunun için şunları yapmalısın:
Label1.Autosize := false;
Label1.Wordwrap:= true;
Daha sonra label i genişlik ve yüksekligini fare ile sen belirlemelisin.

Label1.Caption:='İlk satır '+#10+' ikinci satır '+#10+'üçüncü satır.';

Sadece yazıların arasına #10 (linefeed veya newline) eklemen yeterli olur.

[tugsat]

Çok saol kardeşim yardımcı olduğun için..

[conari]

else
listbox1.Items.Text:='Kritik Borcunuz Bulunmuyor..';

Tamam elseden sonrasını silince oldu neden böyle olduğunu anlamadım ama neyse..

.text dediğin için bütün itemsi siliyor.sonuncuyu yazıyor.

@Emin'in verdiği kod da iyi oldu bende öğrendim.