Form'u transparan yapmak ?

   ******************************

procedure TForm1.Button1Click(Sender: TObject);

var

i : integer;

begin

i:=GetWindowLong(Button1.Handle,GWL_STYLE );

SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE);

Button1.Caption := 'satır1'#13#10'satır2';

end; 

Yazar	Mesaj Konu Arama Konu Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır
bekiriceli Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yönetici Kayıt Tarihi: 01.Ocak.2007 Aktif Durum: Aktif Değil Gönderilenler: 281	Alıntı Cevapla Konu: Form'u transparan yapmak ? Gönderim Zamanı: 22.Mayıs.2009 Saat 12:27
	****************************** Form'u transparan yapmak ? procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i:=GetWindowLong(Button1.Handle,GWL_STYLE ); SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE); Button1.Caption := 'satır1'#13#10'satır2'; end;