![]() |
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ı: 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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
![]() |
|
![]() |
|
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |
![]() ![]() ![]() |
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 |