Arsip: Form Transparan

 
user image
more 17 years ago

mas_kofa

Minta Tolong nich........... aku buat form transparan..tapi semuanya jadi transparan (label, edit, dll). gimana caranya agar hanya formnya aja yang transparan??? sedangkan isinya masih tetep keliatan penuh...... makasih...
user image
more 17 years ago

tox2wow

Minta Tolong nich........... aku buat form transparan..tapi semuanya jadi transparan (label, edit, dll). gimana caranya agar hanya formnya aja yang transparan??? sedangkan isinya masih tetep keliatan penuh...... makasih...
Coba setting Properties Form-nya aja mas ... :P ... 1. Set properti TransparentColor menjadi True 2. Set properti TransparentColorValue menjadi warna apa aja (ex. clBlack) 3. Set properti Color menjadi warna yg sama dg warna properti TransparentColorValue. Selamat mencoba ya ... :D
user image
more 17 years ago

abad21

Coba procedure di bawah mas kofa: procedure TForm1.Button1Click(Sender: TObject); Var frmRegion, tempRegion: HRGN; i: Integer; Arect: TRect; Begin frmRegion := 0; For I:= 0 To ControlCount - 1 Do Begin aRect := Controls[i].BoundsRect; OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top ); tempRegion := CreateRectRgnIndirect( aRect ); If frmRegion = 0 Then frmRegion := tempRegion Else Begin CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); End; End; tempregion := CreateRectRgn( 0, 0, Width, GetSystemMetrics( SM_CYCAPTION )+ GetSystemMetrics( SM_CYSIZEFRAME )+ GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil)); CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); SetWindowRgn( handle, frmRegion, true ); end;
user image
more 17 years ago

mas_kofa

wah.........nyang...diajarkan mas OnSkilled...gampang banget yah..... makasih.. ya????
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com