Label'a Yazılan Yazıyı Mouse Yönünde Hareket Ettiren Program

**BöüRtLeN** · 01-08-2008, 03:35 AM

Label1MouseMove
begin
if x<25 then
label1.Alignment:=taLeftJustify;
if (x>25) and (x<75) then
label1.Alignment:=tacenter;
if x>75 then
label1.Alignment:=tarightJustify;
if y<25 then
label1.Layout:=tltop;
if (y>25)and (y<75) then
label1.Layout:=tlcenter;
if y>75 then
label1.Layout:=tlbottom;
end;
end.
FormMouseMove
var
u

s:integer;
begin
s:=Label1.Left;
u:=Label1.Top;
if x<s+25 then
label1.Alignment:=taLeftJustify;
if (x>s+25) and (x<s+75) then
label1.Alignment:=tacenter;
if x>s+75 then
label1.Alignment:=tarightJustify;
if y<u+25 then
label1.Layout:=tltop;
if (y>u+25)and (y<u+75) then
label1.Layout:=tlcenter;
if y>u+75 then
label1.Layout:=tlbottom;
end;

**A_Can** · 08-15-2008, 07:16 PM

Label'in AutoSize özellğini False yapıp hareket alanını genişletmelisiniz. Ayrıca adminin önlemi olsa gerek virgüller resimle değiştirilmiş

Sanırım kopy önlemi. var blogunda integer tanımı u ve s arasındaki virgülü unutmayın.

01-08-2008, 03:35 AM	#1 (permalink)
BöüRtLeN ησтнιηg ¢σмραяєѕ тσ уσυ	Label'a Yazılan Yazıyı Mouse Yönünde Hareket Ettiren Program Label1MouseMove begin if x<25 then label1.Alignment:=taLeftJustify; if (x>25) and (x<75) then label1.Alignment:=tacenter; if x>75 then label1.Alignment:=tarightJustify; if y<25 then label1.Layout:=tltop; if (y>25)and (y<75) then label1.Layout:=tlcenter; if y>75 then label1.Layout:=tlbottom; end; end. FormMouseMove var us:integer; begin s:=Label1.Left; u:=Label1.Top; if x<s+25 then label1.Alignment:=taLeftJustify; if (x>s+25) and (x<s+75) then label1.Alignment:=tacenter; if x>s+75 then label1.Alignment:=tarightJustify; if y<u+25 then label1.Layout:=tltop; if (y>u+25)and (y<u+75) then label1.Layout:=tlcenter; if y>u+75 then label1.Layout:=tlbottom; end;

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
tebessüm ettiren çok hoş kareler	CallaouS	Komik resimler & Linkler	4	05-30-2007 06:00 PM
Çok lânet ettiren 2 şeyden sakınınız	ABYSS	Dini Bilgiler	0	04-25-2007 12:43 AM
Enflasyon eğilimi düşüş yönünde	USLANMAM	Ekonomi Haberleri	0	03-27-2007 05:30 PM
Enflasyon eğilimi düşüş yönünde	USLANMAM	Ekonomi Haberleri	0	03-27-2007 04:50 PM
Tolstoy'u aforoz ettiren kitap	ABYSS	Kitap Tanıtımları	0	12-20-2006 05:10 PM

08-15-2008, 07:16 PM	#2 (permalink)
A_Can Mareşal	Label'in AutoSize özellğini False yapıp hareket alanını genişletmelisiniz. Ayrıca adminin önlemi olsa gerek virgüller resimle değiştirilmiş Sanırım kopy önlemi. var blogunda integer tanımı u ve s arasındaki virgülü unutmayın.

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)