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...

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

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;

wah.........nyang...diajarkan mas OnSkilled...gampang banget yah..... makasih.. ya????