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 |
Alıntı Cevapla
Konu: Delphi de görsel ve dinamik menu oluşturmak Gönderim Zamanı: 09.Ekim.2009 Saat 14:46 |
Merhaba Murat abi , rica etsem kasa 7' nin giriş ekranında tasarladığın , o kadar kafa yormama rağmen çözemediğim o menu tarzı bi örnek yayınlarmısın |
|
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 |
Alıntı Cevapla Gönderim Zamanı: 09.Ekim.2009 Saat 23:15 |
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.
|
|
bayramoglu_61
Moderator Group Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
Alıntı Cevapla Gönderim Zamanı: 10.Ekim.2009 Saat 14:22 |
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. |
|
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 |
Alıntı Cevapla Gönderim Zamanı: 11.Ekim.2009 Saat 16:56 |
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
|
|
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 |
Alıntı Cevapla Gönderim Zamanı: 12.Ekim.2009 Saat 12:29 |
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. |
|
bayramoglu_61
Moderator Group Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
Alıntı Cevapla Gönderim Zamanı: 12.Ekim.2009 Saat 13:47 |
Teşekkürler üstad deniyecem bunu ..
|
|
bayramoglu_61
Moderator Group Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
Alıntı Cevapla Gönderim Zamanı: 12.Ekim.2009 Saat 14:54 |
Murat abi ilk giriş ekranı yokmu kullanıcı girişi yaparken.Hani şirket işlemleri, kullanıcı işlemleri , diğer işlemler vs seceneklri var, birine tıklayınca ötekiler animasyonlu bi şekilde geciyor.Menu den kastım o kısım.umarım bu sefer doğru yere isabet etmişimdir :)
|
|
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 |
Alıntı Cevapla Gönderim Zamanı: 14.Ekim.2009 Saat 01:04 |
:) 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 |
Alıntı Cevapla Gönderim Zamanı: 14.Ekim.2009 Saat 09:11 |
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 .. |
|
bayramoglu_61
Moderator Group Kayıt Tarihi: 05.Temmuz.2007 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 25 |
Alıntı Cevapla Gönderim Zamanı: 19.Ekim.2009 Saat 17:20 |
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; |
|
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 |
Alıntı Cevapla Gönderim Zamanı: 19.Ekim.2009 Saat 20:01 |
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.
|
|
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 |
Alıntı Cevapla Gönderim Zamanı: 21.Ekim.2009 Saat 17:08 |
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
|
|
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 |