فرم شیشه ای

abrras

عضو جدید
اولین فرم برنامه دلفی طوری طراحی شود که تمام برنامه های روی desktop در زمان اجرای برنامه دلفی قابل دسترسی و اجرا باشند.
 

negin17h

مدیر تالارهای مهندسی کامپیوتر و رباتیکمتخصص #C
مدیر تالار
اولین فرم برنامه دلفی طوری طراحی شود که تمام برنامه های روی desktop در زمان اجرای برنامه دلفی قابل دسترسی و اجرا باشند.

برای اين کار BackColor و TransparentKey فرم رو به يک رنگ همزمان ست کنيد.
 

ahmadi613

عضو جدید
با سلام.تابع فرم شیشه ای را برایت هدیه می نمایم در فرم یک button قرار دهید و با سلیقه خود در رویداد onshow فرم و یا.......
implementation
{$R *.dfm}
function TransForm(wnd:Longint; Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TransForm(form1.Handle ,150);
end;
 

ayask

عضو جدید
با سلام .من این تابع رو در فرم لاگینم اکثر اوقات استفاده میکنم ....
اونم در رویداد formcreate اش :
به این صورت

کد:
procedure TLogin.FormCreate(Sender: TObject);
var
j:integer;
begin
j:= GetWindowLong(login.Handle,GWL_EXSTYLE);
j:=j or WS_EX_LAYERED;
SetWindowLong(login.Handle,GWL_EXSTYLE,j);
SetLayeredWindowAttributes(login.Handle,0,220,LWA_ALPHA);
end;
 

mtfa65

عضو جدید
با سلام .من این تابع رو در فرم لاگینم اکثر اوقات استفاده میکنم ....
اونم در رویداد formcreate اش :
به این صورت

کد:
procedure TLogin.FormCreate(Sender: TObject);
var
j:integer;
begin
j:= GetWindowLong(login.Handle,GWL_EXSTYLE);
j:=j or WS_EX_LAYERED;
SetWindowLong(login.Handle,GWL_EXSTYLE,j);
SetLayeredWindowAttributes(login.Handle,0,220,LWA_ALPHA);
end;

سلام
بجای این همه کد یه کد را حتتر بذارید و قابل تغییر
یک edit روی فرم بذارید و text آن رو صفر کنید و دوبار روی edit کلیک کنید و این کد رو بنویسید
form1.alphabend:=true;
form1.alphabendvalue:=strtofloatedit1.text;
end;
همین.دیگه این همه تابع و کد نویسی نیازی نیست.
 
Similar threads
Thread starter عنوان تالار پاسخ ها تاریخ
mehdiat تغییر تصویر پس زمینه در فرم دلفی هر 30 ثانیه یکبار Delphi 1

Similar threads

بالا