label3.captiondan 2 birim sonra başlama?

[y.kulac]

s.a.
arkadaşlar label3.captiondan 2 birim(ölçüsünü bilmediğim için birim yazdım) sonra label4 ü başlatmak istiyorum.

ben yapmaya çalıştım ama olmadı. şöyle denedim:

var
a:string;
x:integer;
begin
a:= label3.caption;
x:= length(a);
label4.left := x+2;
end;

ama bu şekilde olmadı. neler önerirsiniz.iyi çalışamalar.

[aslangeri]

S.A.
istediğin şöyle bir şeymi?

Kod: Tümünü seç

label4.left:=label3.left+2;

bu durumda label4 ün lefti label3 den 2 piksel sonra görüntülenir.
anladığım kadarı ile sen label3 ün ilk iki karekterinden sonra lable4ün lefti gelsin istiyorsun. o zaman label3ün fontuna göre karakter uzunluğunu hesaplatıp label4 ün left ini o şekilde hesaplatman lazım.
yani son hali şöyle

Kod: Tümünü seç

label4.left:=label3.left+harfuzunlugunuhesapla(label3.caption);

harfuzunlugunuhesapla fonksiyonu geriye label3.caption un ilk iki harfinin genişliğini dönderiyor. BU fonkisyonu yazmak sana kalıyor.

Kolay gelisn.

[muskut]

Formun.OnShow olayında söyle kod yazarsan çalışacaktır;

label1.Left := 0;
label1.Top := 0;

label2.Left := label1.Width + 2;
label2.Top := label1.Top;


selametle.

[y.kulac]

s.a.
ben label3 ün bittiği yerden itibaren label4 ü yazdırmakistiyorum.
örneğin "sakarya valiliği" valiği kelimesi sakarya kelimesinden 2 birim
sonra başlasın istiyorum.
iyi çalışmalar.

[aslangeri]

Ozaman

Kod: Tümünü seç

label4.left:=label3.left+label3.width+2;

Kolay gelsin.

[y.kulac]

arkadaşlar allah razı olsun bu ne hız. sorar sormaz cevaplar geldi.
aslangeri kardeşimin gönderdiği kodlar işimi gördü.

herkese iyi çalışmalar.