Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Label Alt Satıra Geçme
#1
Arkadaşlar merhaba. Programda label üzerindeki yazılar fazla olunca sağ taraftaki başlık ile birleşiyor. Label uzunluğunu aştığı zaman bir alt satıra geçmesini istiyorum bunu nasıl yapabilirim? Veri tabanı sql 2014 kullanıyorum program delphi xe5
Don't fear the try!
WWW
Cevapla
#2
genişliği bunun üzerinde ise ilk boşluktan split et ve araya + #13 + ekle
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
(07-02-2017, Saat: 10:53)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olgenişliği bunun üzerinde ise ilk boşluktan split et ve araya + #13 + ekle

Size ı otomatik verdim ama nasıl yapılıyor dediğinizi pek anlamadım biraz daha yardımcı olabilir misiniz
Don't fear the try!
WWW
Cevapla
#4
Label'in WordWrap özelliğini True yapıp deneyiniz.
There's no place like 127.0.0.1
WWW
Cevapla
#5
(07-02-2017, Saat: 11:47)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLabel'in WordWrap özelliğini True yapıp deneyiniz.

Dediğinizi yaptım, fakat metni yarıdan kesti o zaman sadece. Aşağı almadı uzun olan yeri
Don't fear the try!
WWW
Cevapla
#6
Tam olarak ne yapmak istediğinizi anlayamadım Sad
There's no place like 127.0.0.1
WWW
Cevapla
#7
(07-02-2017, Saat: 13:50)cudyfoster Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(07-02-2017, Saat: 11:47)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLabel'in WordWrap özelliğini True yapıp deneyiniz.

Dediğinizi yaptım, fakat metni yarıdan kesti o zaman sadece. Aşağı almadı uzun olan yeri

Label1.text:='Label textiniz' +#13+ ' bolunup' +#13+ ' üçe ayrıldı';
Cevapla
#8
(07-02-2017, Saat: 11:39)cudyfoster Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(07-02-2017, Saat: 10:53)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olgenişliği bunun üzerinde ise ilk boşluktan split et ve araya + #13 + ekle

Size ı otomatik verdim ama nasıl yapılıyor dediğinizi pek anlamadım biraz daha yardımcı olabilir misiniz

bu işi yapacak procedure ,

procedure TForm4.AltSatirOrnek(Text: string; lbl: TLabel);
var
Splitted : TArray<String>;
i: Integer;
begin
 lbl.Caption := '';
 Splitted := Text.Split([' ']);
 for I := 0 to Length(Splitted)-1 do
  begin
   if Trim(Splitted[i])<>'' then
   lbl.Caption :=  lbl.Caption+Splitted[i]+#13 ;
  end;
end;


procedure kullanımı

AltSatirOrnek('dağdan kestim kereste',label1)

Tabi bu tüm boşluklardan ayırır sen kendine göre düzenle bunu
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#9
(08-02-2017, Saat: 09:22)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(07-02-2017, Saat: 11:39)cudyfoster Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSize ı otomatik verdim ama nasıl yapılıyor dediğinizi pek anlamadım biraz daha yardımcı olabilir misiniz

bu işi yapacak procedure ,

procedure TForm4.AltSatirOrnek(Text: string; lbl: TLabel);
var
Splitted : TArray<String>;
i: Integer;
begin
 lbl.Caption := '';
 Splitted := Text.Split([' ']);
 for I := 0 to Length(Splitted)-1 do
  begin
   if Trim(Splitted[i])<>'' then
   lbl.Caption :=  lbl.Caption+Splitted[i]+#13 ;
  end;
end;


procedure kullanımı

AltSatirOrnek('dağdan kestim kereste',label1)

Tabi bu tüm boşluklardan ayırır sen kendine göre düzenle bunu

Paylaşımınız için teşekkür ederim, fakat cudyfoster'ın bahsettiği soruna çare olmaz diye düşünüyorum. 
(07-02-2017, Saat: 10:42)cudyfoster Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlArkadaşlar merhaba. Programda label üzerindeki yazılar fazla olunca sağ taraftaki başlık ile birleşiyor. Label uzunluğunu aştığı zaman bir alt satıra geçmesini istiyorum bunu nasıl yapabilirim? Veri tabanı sql 2014 kullanıyorum program delphi xe5

Belirlediği Label uzunluğunu aşınca; bir alt satıra geçilmesini ve Label'in aşağı doğru uzatılarak (AutoHeight=WordWrap) gösterilmesini istemiş.
WWW
Cevapla
#10
Merhaba,
yhackup ve 10.Köy'ün vermiş olduğu çözümler ile Label'in aşağı doğru kaymasını sağlayabilirsiniz. 

(07-02-2017, Saat: 10:53)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olgenişliği bunun üzerinde ise ilk boşluktan split et ve araya + #13 + ekle

(07-02-2017, Saat: 16:17)10.Köy Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(07-02-2017, Saat: 13:50)cudyfoster Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlDediğinizi yaptım, fakat metni yarıdan kesti o zaman sadece. Aşağı almadı uzun olan yeri

Label1.text:='Label textiniz' +#13+ ' bolunup' +#13+ ' üçe ayrıldı';


Tabi aşağı doğru kaydırırken; sağa doğru genişlemesi de gerekebilir. Bu durumda Label'ın AutoSize özelliğinin True olması gerekiyor. Label AutoSize özelliğinden dolayı sağa doğru genişlerken de farklı bir sorunla karşılaşabilirsiniz; Label'in yanına yerleştirdiğiniz bir veya birden fazla nesnenin Label tarafından kaplanması.
Bu ve buna benzer bazı sorunların çözümü için kısa bir test yaptım. 



While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Satıra Git yhackup 8 269 19-09-2017, Saat: 15:05
Son Yorum: The_aLiEn
  Alt satıra geçiş Mericx 14 890 29-03-2017, Saat: 10:15
Son Yorum: SimaWB



Konuyu Okuyanlar: 1 Ziyaretçi