Delphi de görsel ve dinamik menu oluşturmak

   Evet , dışardan bakınca sanki 3. parti bir bileşen ile yapılmış gibi dursa da özüne inince tamamen delphi nin en saf halindeki  kontrolleri ile yapıldığını görmek sevindirici. Ben şu tarz bir kullanımla istediğim sonucu aldım :

for  i:=0 to 250 do begin
if i mod 20 =2 then  begin
sleep(1);
application.ProcessMessages;
end;

shape1.Left:=shape1.Left+1;
label1.Left:=label1.Left+1;
shape2.Left:=Shape2.Left+1;
label2.Left:=label2.Left+1;
shape3.Left:=shape3.Left+1;
label3.Left:=label3.Left+1;
shape4.Left:=shape4.Left+1;
label4.Left:=label4.Left+1;
shape5.Left:=shape5.Left+1;
label5.Left:=label5.Left+1;
shape6.Left:=shape6.Left+1;
label6.Left:=label6.Left+1;

shape7.Left:=shape7.Left-1;
label7.Left:=label7.Left-1;
shape8.Left:=shape8.Left-1;
label8.Left:=label8.Left-1;
shape9.Left:=shape9.Left-1;
label9.Left:=label9.Left-1;

bir bileşen haline dönüştürülerek  pratik kullanım kazadırılabilir...

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
bayramoglu_61 Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25	Alıntı Cevapla Gönderim Zamanı: 22.Ekim.2009 Saat 10:41
	Evet , dışardan bakınca sanki 3. parti bir bileşen ile yapılmış gibi dursa da özüne inince tamamen delphi nin en saf halindeki kontrolleri ile yapıldığını görmek sevindirici. Ben şu tarz bir kullanımla istediğim sonucu aldım : for i:=0 to 250 do begin if i mod 20 =2 then begin sleep(1); application.ProcessMessages; end; shape1.Left:=shape1.Left+1; label1.Left:=label1.Left+1; shape2.Left:=Shape2.Left+1; label2.Left:=label2.Left+1; shape3.Left:=shape3.Left+1; label3.Left:=label3.Left+1; shape4.Left:=shape4.Left+1; label4.Left:=label4.Left+1; shape5.Left:=shape5.Left+1; label5.Left:=label5.Left+1; shape6.Left:=shape6.Left+1; label6.Left:=label6.Left+1; shape7.Left:=shape7.Left-1; label7.Left:=label7.Left-1; shape8.Left:=shape8.Left-1; label8.Left:=label8.Left-1; shape9.Left:=shape9.Left-1; label9.Left:=label9.Left-1; bir bileşen haline dönüştürülerek pratik kullanım kazadırılabilir...