• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 4 رای - 3.75 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: شفاف کردن فرم
حالت خطی
#1
از این تابع برای شفاف کردن فرم برنامه خود استفاده نمایید
کد:
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
شفاف کردن فرم - توسط Amin_Mansouri - 08-01-2011، 07:32 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  چک کردن وضعیت پارتیشن Amin_Mansouri 1 3,261 10-08-2022، 05:09 PM
آخرین ارسال: sonusood
  سورس کد چک کردن فعال بودن uac(دلفی) Amin_Mansouri 0 3,336 08-07-2012، 10:29 AM
آخرین ارسال: Amin_Mansouri
  سورس کد دیلیت کردن فایل مشخص شده از سطل زباله (دلفی) Amin_Mansouri 0 3,268 05-04-2012، 11:56 AM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن ادمین بودن یوزر (دلفی) Amin_Mansouri 0 3,214 04-29-2012، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد کپی کردن فایل (دلفی) Amin_Mansouri 0 6,837 04-27-2012، 10:59 AM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن خالی بودن پوشه ( دلفی ) Amin_Mansouri 0 3,069 04-27-2012، 10:54 AM
آخرین ارسال: Amin_Mansouri
  سورس کد خالی کردن سطل زباله (دلفی) Amin_Mansouri 0 2,594 04-22-2012، 11:34 AM
آخرین ارسال: Amin_Mansouri
  سورس کد پاک کردن یک کلید مشخص شده رجیستری دلفی Amin_Mansouri 0 3,704 04-21-2012، 11:05 PM
آخرین ارسال: Amin_Mansouri
  سورس لاگین کردن فیس بوک با دلفی Amin_Mansouri 0 3,554 10-19-2011، 03:21 PM
آخرین ارسال: Amin_Mansouri
  کپی کردن یک فایل Amin_Mansouri 0 4,604 08-01-2011، 07:34 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 2 مهمان