محو کردن فرم

[diplomat]

با سلام خدمت دوستان عزیز
آیا میشود فرم را به حالت نیمه پنهان در آورد ؟

[mzjahromi]

نیمه پنهان رو تاحالا نشنیده بودیم
اگر منظورتون رو کاملتر توضیح بدید شاید بشه کاری کرد.

[hassan_blue]

شاید منظورت شفافیت فرم (خاصیت AlphaBlend فرم)

[Hsimple11]

خاصیت AlphaBlend فرم را True کنید و Value آن را هم Set کنید. اگر از ورژنی استفاده میکنید که این خاصیت را ندارد با استفاده از این کد فرم نیمه شفافی خواهید داشت؛ البته این عمل فقط بر روی ویندوزهای 32بیتی قابل اجراست :



const
WS_EX_LAYERED = $80000;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;

type
TSetLayeredWindowAttributes = function (
hwnd : HWND;
crKey : TColor;
bAlpha : byte;
dwFlags : DWORD
): BOOL; stdcall;

procedure SetTransparentForm(AHandle : THandle; AValue : byte = 0);
var
Info: TOSVersionInfo;
SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
begin
Info.dwOSVersionInfoSize := SizeOf(Info);
GetVersionEx(Info);
if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(Info.dwMajorVersion >= 5) then
begin
SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32),
'SetLayeredWindowAttributes');
if Assigned(SetLayeredWindowAttributes) then
begin
SetWindowLong(AHandle, GWL_EXSTYLE,
GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
//Make form transparent
SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetTransparentForm(Handle, 100);
end;

[lord_viper]

ایا میشه این alphablend رو به فورم فقط اعمال کرد و بقیه کنترلها در حالت معمولی باشند؟
(مثل بعضی تمهای ویستا که فقط فورمها حالت محو دارند ولی کنترلهای مربوط به فورمها اینطور نیستن)

[Hsimple11]

وقتی Owner کنترلهای روی فرم، خود فرم است مسلما از آن تاثیر میگیرند.

[lord_viper]

خب برای اینجام این کار چه میشه کرد؟

[diplomat]

شرمنده من در طرح سوالم اشتباه کردم
برای کنترل میزان Transparent یه Image راهی وجود داره یا خیر
با تشکر

[Hsimple11]

شرمنده من در طرح سوالم اشتباه کردم
برای کنترل میزان Transparent یه Image راهی وجود داره یا خیر


چه جالب!

خاصیت Transparent مربوط به Image خود را True کنید. متدهای TransparentMode و TransparentColor را در خود Help دلفی جستجو کنید.

[diplomat]

TransparentMode اون کاری که مورد نظر من انجام نمیده
من میخوام تصویر به صورت نیمه شفاف در بیاد

[diplomat]

کسی نیست جواب بده