Trik Desain Form Delphi 7

Trik Desain Form Delphi 7 Created

by

1.Form

Keren

:

[email protected] Untuk

Log

In

Langung a!a kita mu"ai te# by te# membuat form keren ini: 1.

$uk uka a %e" %e"#h #hii & an anda da dan n bua buatt"ah #r #ro! o!ek ek bar aru u Lan Lang gka kah h ini ini da da# #at di diak ak e me me""a" a"ui ui Fi Fi""e ' (e) '  *##"ication

+.

.,ro#erti For orm m $or ord der er ty"e - b(one/ 0un 0untuk border for orm m ditiadak akan an 2 Co"or - c"3h 3hiite/ 2 4ran#arentCo"or 4ran#arentC o"or - true/ 2 4ran#arentCo"or5a 4ran#arentCo"or5a"ue "ue - c"3hite/ 0!ika anda menambahkan )arna #utih #ada form anda )arna terebut tidak ter"ihat.

7. 4amba mbahka hkan n kom kom#on #onen en ima image ge #ad #ada a for form. m. Kom Kom#on #onen en ini ter ter"et "etak ak #ad #ada a tab *d *ddit ditiona iona". ". Untuk ,ro#erti Image *"ign - a"C"ient 2 4ran#arent - true/.

8ambar yang akan anda tambahkan ini nantinya akan men!adi background eka"igu bentuk dari form. *ga *garr gambar bia tran tran#aran #aran #ada form anda da#at membuat gambar dengan format .gif  tran#aran atau .bm# dengan )arna background khuu 0background haru ber)arna #utih atau FFFFFF Contoh gambar :

7. Untuk menambah kan gambar #ada #ro#erti #icture k"ik tombo" 7 titik "ihat gambar yang di"ingkari merah

ehingga ke"uar kotak akan ke"uar kotak ,icture ;ditor ditun!ukan e#erti gambar diba)ah k"ik "oad untuk menambahkan. La"u k"ik ok.

<. 4ambahkan kom#onen ;dit 0ter"etak #ada tab tandard atau %$;dit 0ter"etak #ada tab %ata Contro" kom#onen ini terda#at #a da tab *dditiona". Letakan + kom#onen #ada formeuaikan dengan tu"ian. Untuk %$;dit yang di"etakan #ada ii kanan #a)ord agar te=t tidak ter"ihat ketika diketikan #ada

%$;dit terebut anda bia et #ro#erti ,a)ordChar dengan >/.

?. Kemudian "etakan !uga kom#onen $utton 0ter"etak #ada tab tandard atau $itbtn 0ter"etak #ada tab *dditiona". ika anda menambahkan $itbtn anda bia menambahkan Icon #ada ii kanan bitbtn. Untuk memuncu"kan icon terebut anda bia tambahkan dengan + cara cara yang #ertama yaitu icon yang udah diediakan de"#hi #ada #ro#erti Kind et euai keinginan anda cara kedua yaitu icon yang kita ediakan endiri #ada #ro#erti 8"y#h Load icon yang anda kehendaki 0 icon yang diediakan dengan format .bm#.

6. aAe a"" 0 aAe a aAe #ro!ect a. &..Kemudaian run #rogram atau tekan F9 hai"nya ter"ihat #ada gambar.

B. ika anda menginginkan form terebut da#at di drag  tambahkan #rocedure ource kode berikut #ada bagian ty#e/ atau #riAate/ atau bia !uga me"etakan #ada #ub"ic/ tergantung #ada #riAai anda  

0hahay.

#rocedure 3D(CEit4et0Aar mg : 43D(CEit4et2meage 3D(CEit4et2 +.,ada bagian im#"ementai tambahkan kode berikut: #rocedure 4Form1.3D(CEit4et0Aar mg : 43D(CEit4et2 begin inherited2 if 0mg.Geu"t - htC"ient then if Dg.H,o  4o# J < then mg.Geu"t :- htCa#tion2 end2 ebenarnya anda da#at !uga menggunakan kin untuk membuat form keren ini. (amun aya tidak menyarankan #enggunaan kin ini. e"ain #rogram men!adi berat diakibatkan o"eh #enggunaan kom#onen tambahan bia itu beru#a "ibrari atau oc= 0*ctiAe kom#abi"ita dengan kom#onen tandar %e"#hi !uga men!adi kenda"a. $ukankah "ebih baik memodifikai euatu yang tandar  dari#ada

haru

menggunakan

uatu

fitur

embeded

MN

ekian du"u trik dari aya emoga bermanfa/at bagi #engun!ung b"og ini atau #embaca Komentar aran dan #ertanyaan mengenai trik ini bia me"a"ui komentar #ada b"og ini atau kirim ke [email protected] atau fauzieuy@gmai".com

a"ah atu cara membuat a#"ikai yang kita buat men!adi "ebih menarik ada"ah dengan cara membuat tam#i"an form a#"ikai. %engan form a#"ikai yang menarik akan membuat uer a#"ikai akan "ebih nyaman dan tidak boan da"am menggunakan a#"ikai yang anda buat. Untuk membuat tam#i"an form tidak"ah u"it yang #ertama haru kita "akukan ada"ah dengan membuat gambar tam#i"an menggunakan #hotoho# core" atau#un a#"ikai editing gambar "ainnya. 8ambar"ah euai dengan ima!inai anda dan im#an dengan format .bm#. Contoh gambar form a#"ikai :

Untuk memaang gambar yang kita buat #ada form %e"#hi "akukan "angkahO"angkah berikut : 1. $uka a#"ikai yang te"ah dibuat !ika +. K"ik #ada form atur #ro#ertienya ebagai berikut :  *"#ha$"end : 4rue $orderty"e : $(one Co"or : c"$tnFace ,oition : #o%ekto#Center  4ran#arentCo"or : 4rue 4ran#arenCo"or5a"ue :

be"um

ada

buat

a#"ikai

baru.

c"$ackground

7. K"ik += #ada form ete"ah muncu" !ende"a editor tu"ikan kode berikut :  procedure TForm1.FormCreate (Sender: TObject); begin

TransparentColorValue:=image1.Canvas.Pixels [0,0]; end;

<. 4ambahkan kom#onen 4image #ada form atur "ebar tingginya euai dengan form yang kita buat kemudian atur #ro#ertiennya ebagai berikut : ,icture : maukkan gambar yang udah kita buat 4ran#arent : 4rue ?. K"ik #ada kom#onen 4Image #ada eAent k"ik += #ada PnDoue%o)n. 4u"ikan kode #rogram berikut agar form yang kita buat bia digeerOgeer.  procedure TForm1.Image1Mous eMove(Sender: TObject; Si!t : TSi!tState; "# $: Integer); %egin

ReleaseCapture; Perform!"#$%$C&""'(),*+01,0-; end;

6. Gunning atau !a"ankan #rogram. $erikut ada"ah contoh form a#"ikai ete"ah di!a"ankan :

'''

Form Cantik Dengan Delphi & Photoshop Posted: November 5, 2009 in DEP!" 0 angkah " : #dobe Photoshop

b$at tampilan %orm ses$ai selera set 'arna ba(kgro$nd )FF0000, dan hindari 'arna )FF0000 pada %orm %a(en*a, berik$t (ontoh design *ang sa*a b$at : +ave as simpan ke tipe le bmp angkah "" : Design di Delphi

-$at Form bar$ setting propertiesn*a sbb #lpha-land . False #lpha-land/al$e . 0 semakin ke(il nilain*a maka akan semakin transparan, anda bisa mengisi nilain*a antara 1  1003 -order+t*le . bsNone Color . (l4ed Name . %ormen$ Position . poDesktopCenter  6ransparentColor . 6r$e  6ransparentColor/al$e . (l4ed har$s sama dengan Color3 7indo'+tate . 'sNormal tambahkan ob8e(t "mage dari tab #dditional #t$r propertiesn*a sbb : Pi(t$re . #mbil image bmp *ang s$dah dib$at  6ransparent . 6r$e

tambahkan tombol (lose Pada event on(lik ketik program berik$t :

pro(ed$re 6%ormen$-it-tn1Cli(k+ender:6b8e(t3

-egin

#ppli(ation6erminate

End simpan pro8e(t anda r$n program angkah """ : Program

#gar title bar bisa digeser, la*akn*a %orm:

 6ambahkan ;ode berik$t di ba'ah 6*pe : pro(ed$re 7NC!it6estvar msg : 67NC!it6est3 message 7
begin

inherited

i% msg4es$lt . htClient3 then

i% sg=Pos > 6op ? @0 then

msg4es$lt :. htCaption

end r$n program

•

Form Cantik %engan %e"#hi

Senin, 01 Maret 2010

%a"am membuat a#"ikai bukan hanya kehanda"an a#"ikai da"am mengo"ah data a!a yang #er"ukan #enam#i"an !uga #er"u di #erhatikan. %engan tam#i"an yang cantik maka dimungkinkan uer akan "ebih tertarik dengan #rogram yang kita buat. Q,andangan #ertama begitu menggoda e"an!utnyaNN  he heeR. Untuk membuatnya dibutuhkan edikit ketram#i"an da"am memainkan #rogram grafi. aya menggunakan adobe #hotoho# C+ untuk mengo"ah image dan %e"#hi &. untuk membuat a#"ikainya. $erikut "angkahO"angkahnya: Langkah I : *dobe ,hotoho# 1. buat tam#i"an form euai e"era. +. et )arna background FF dan hindari )arna FF #ada form facenya berikut contoh deign yang aya buat :

7. aAe a im#an ke ti#e fi"e .bm# Langkah II : %eign di %e"#hi. 1. $uat Form baru +. etting #ro#ertienya bb. > *"#ha$"and - Fa"e > *"#ha$"and5a"ue -  0emakin keci" ni"ainya maka akan emakin tran#aran anda bia mengii ni"ainya antara 1 S 1 > $orderty"e - b(one > Co"or - c"Ged > (ame - formDenu > ,oition - #o%ekto#Center  > 4ran#arentCo"or - 4rue > 4ran#arentCo"or5a"ue - c"Ged 0haru ama dengan Co"or > 3indo)tate - )(orma" 7. tambahkan ob!ect Image dari tab *dditiona" <. *tur #ro#ertienya bb : > ,icture - *mbi" image .bm# yang udah dibuat. > 4ran#arent - 4rue ?. tambahkan tombo" c"oe ,ada eAent onc"ik ketik #rogram berikut :  procedure TformMenu.BitBtn1Click(Sender:TObject)

Begin  Application.Terminate !nd 6. im#an #ro!ect anda. &. run #rogram. Langkah III : ,rogram  *gar tit"e bar bia digeer "ayaknya form: 1. 4ambahkan Kode berikut di ba)ah 4y#e :  procedure "M#C$itTe%t(&ar m%g : T"M#C$itTe%t) me%%age "M'#C$itTe%t +. 4ambahkan Kode berikut:  procedure TformMenu."M#C$itTe%t(&ar m%g : T"M#C$itTe%t) begin inerited if (m%g.e%ult * tClient) ten if M%g.+,o% - Top  /0 ten m%g.e%ult :* tCaption end 7. run #rogram.

------------- e"amat Dencoba --------------

Pada %orm1 pilih event lal$ pilih event on (reate dan diba'ah ini adalah (ontoh koden*an*a, $nt$k $k$rann*a silahkan ses$aikan dengan selera anda lihat kode angka angkan*a it$ adalah $nt$k $k$rann*a, en8o*  pro(ed$re 6Form1FormCreate+ender: 6b8e(t3  var region: !4gn begin region:.CreateEllipti(4gn1,1,A00,A003 +et7indo'4gnhandle,region,6r$e3 end

/"+B# -#+"C Form standar  yang biasanya kita gunakan bentuknya persegi, Nah bagaimana kalau kita ingin membuat bentuk form supaya berbentuk lain, bulat misalnya. Jadi kan form kita gak monoton dan membosankan. Nah karna itu sekarang kita akan membuat Form supaya berbentuk bulat , agar ampilan form jadi lebih menarik. Simak caranya. 1. Buka Program Visual Basic dan mulai dengan orm baru. !. "ouble klik pada area form dan masukan listing kode diba#ah ini pada bagian Declaration

Private )elare +untion Create/lliptiRgn i 2g3i42 56Val 71 's ong, 56Val %1 's ong, 56Val 7 's ong, 56Val % 's ong's ong Private )elare +untion $et!in3o8Rgn i 2user42 56Val 9!n3 's ong, 56Val 9Rgn 's ong, 56Val Re3ra8 's ong- 's ong $. Pada prosedur Form_Load() , masukan listing kode diba#ah ini %

Private )im )im )im )im

$u +orm#oa3lngRegion 's ong lngReturn 's ong lng+orm!i3t9 's ong lng+ormeig9t 's ong

lng+orm!i3t9 = "e.!i3t9  $reen.T8ipsPerPixel7 lng+ormeig9t = "e.eig9t  $reen.T8ipsPerPixel% lngRegion = Create/lliptiRgn0, 0, lng+orm!i3t9, lng+ormeig9tlngReturn = $et!in3o8Rgn"e.9!n3, lngRegion, True/n3 $u &. Jalankan dengan menekan tombol ' pada keyboard anda. '. orm anda jadi berbentuk bulat, Selamat anda sekarang bisa membuat form bentuk bulat.

http:ber(odeblogspot(ompblogpage<10html