![]() |
Delphi de görsel ve dinamik menu oluşturmak |
Yanıt Yaz ![]() |
Sayfa 12> |
Yazar | |
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() 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...
|
|
![]() |
|
turknetyazilim ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Moderator Group ![]() ![]() Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214 |
![]() ![]() ![]() |
Murat abi bu yöntem çok güzel bir bir yöntem bulmuşsun.Ben bugün denedim.Oyun bile yapılabilir.Pişririk vs
![]() |
|
![]() |
|
murat turan ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Admin Group ![]() ![]() Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798 |
![]() ![]() ![]() |
kardeş end; den hemen önce
sleep(1000);//ms cinsinden 1000 = 1 sn
application.proccessmessage; bu işini görecektir. sleep komutu bir windows api sidir. duraksama yaratmak için kullanılır. çeşitli alternatifler vardır.
|
|
![]() |
|
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() |
Murat abi rica etsem bu konu hakkında küçük bir örnek koyarmısın?Ben şu şekilde yaptım ama geciş gözle görülmeycek kadar hızlı oluyor ; var
i:integer; begin for i:=0 to 159 do begin 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; end; |
|
![]() |
|
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() |
Evet bu sefer tam isabet :) . Aynı mantıkla bende yapmaya çalıştım ama seninki gibi estetik gecişi sağlayamadım.Üstünde uğraşıldığı belli .. |
|
![]() |
|
murat turan ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Admin Group ![]() ![]() Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798 |
![]() ![]() ![]() |
:) bu defa tam isabet
orada klasik tshape, tlabel nesneleri var. bunun dışında özel bir nesne kullanılmamış. left ve visible özellikleriyle for döngüsü kullanılarak ayarlama yapılmış.
|
|
![]() |
|
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() |
![]() |
|
![]() |
|
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() |
Teşekkürler üstad deniyecem bunu ..
|
|
![]() |
|
murat turan ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Admin Group ![]() ![]() Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798 |
![]() ![]() ![]() |
zamanla herşey olur ismail sonu olmayan bir iş bu yetmez hiçbir zaman. bayram oğlu yanlış anlamışım seni :) izah edeyim; delphinin klasik nesneleri kullanımış öncelikle. kullanılan nesneler;
Form'a TCoolBar koy, bunun içinede TToolbar ekle, TMainMenu ile menüyü tasarla, ve TToolbar 'ın Menu özelliğini tMainMenu nesnene bağla. ve form'a tMainMenu ekleyince hemen form'un Menu özelliği bu nesneye yapışıyor. bu sebeple form'un menu özelliğini TMainMenu ekleme sonrası kaldır. |
|
![]() |
|
turknetyazilim ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Moderator Group ![]() ![]() Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214 |
![]() ![]() ![]() |
Murat abi sen büyük insansın.Yazılım Geliştirmede üzerine tanımıyorum.Senin seviyene ne zaman ulaşıcam ben
![]() Saygılar abi
|
|
![]() |
|
bayramoglu_61 ![]() Moderator Group ![]() ![]() Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
![]() ![]() ![]() |
Cevap için teşekkürler, ama benim sorum formu biçme ile ilgili değildi. kasa 7 alfa sürümünde ki animasyonlu menu yu kasdetmiştim. |
|
![]() |
|
murat turan ![]() Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Admin Group ![]() ![]() Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798 |
![]() ![]() ![]() |
merhaba, procedure TForm1.FormClick(Sender: TObject); i[1]:=Point(50,50); i[10]:=Point(50,90); SetWindowRgn(FH,CreatePolygonRgn(i,14,WINDING),True); yukarıda dediğim gibi bu çizimin sonucuda istinaden yapığım resim'i de form'a yüklüyorum. bunun dışında form'u CreateRectRgn, CombineRgn ve DeleteObject fonksiyonları ilede biçebilirsin.
|
|
![]() |
Yanıt Yaz ![]() |
Sayfa 12> |
Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |