trasnparan form oluşturmak

[webaytek]

trasnparan form oluşturmak istiyorum ancak dediğim gibi formu görünmeyen aptik kodlar diil, zannediyorum alpha ile ilgili kodlar...


bu konu forumda önceden de konuşulmuş ( viewtopic.php?t=2675&highlight=transparan ) ve hatta 2 ayrı kodda verilmiş ancak delphi5 ile kodların uyumsuz olduğunu zannediyorum.... Çalışmadılar da....

MicroChip arkadaşımız

konu hakkında 3.parti bileşenler var haberin olsun... isimleri aklımda değil

demiş de eğer onun weya başka birinizin aklına geldiyse veya alternatif yollar varsa bekliyorum
(Windows 2000 kullanıyorum galiba XPden önce transparan konusuna ilk defa 2000 girmişti )

[mege]

sorunu oradan devam ettirseydin daha faideli olurdu kanısındayım. ben nerden biliyim hangi kodun çalışmadığını bidahamı araştırayım veya hatanın senden kaynakladığını nereden bileyim uyumsuzluk ne hata ne vb..

mathlabda bi grafikte şöyle bi hata almıştım.

çok fazla bilinmeyen var

[webaytek]

aman mege kardeşim kusura baqma kızacağını bilsem KIZANLAR HARİÇ CEVAPLAYIN yazardım sen bana sööle eksiklikler bunlar die ben düzeltiim yaziim

viewtopic.php?t=2675&highlight=transparan

adres bu bi baq istersen sonra konuşalım

[aslangeri]

S.A.
Bildiğim kadarıyla alpha olayı 2000 ve yukarısında çalışıyor.
98 de yok
eğer işletim sistemin 98 se ondan dolayıda çalışmıyor olabilir.

[webaytek]

(Windows 2000 kullanıyorum

Demiştim ama !!!

[mege]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure CreateParams(var Params:TCreateParams); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Brush.Style:=bsClear;
 Form1.BorderStyle:=bsNone;
end;


procedure TForm1.CreateParams(var Params:TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle:=WS_EX_TRANSPARENT;
end;

end.

valla bu kod delphi 1dede 7dede hatta win3.1 de bile çalışıyor,