bsToolWindow به همراه دکمه مینیمایز؟

[mbshareat]

سلام به همگی
من یه پنجره با نوار عنوان کم ارتفاع میخوام(bsToolWindow) که دکمه Minimize هم داشته باشه؟
دستور خاصی داره یه تنظیم خاصی داره؟
من با BorderIcons ور رفتم به نتیجه نرسیدم.

[BORHAN TEC]

سلام
ساده ترین راه استفاده از کامپوننت JvCaptionButton از مجموعه JVCL است. به این صورت که این کامپوننت را روی فرم بیاندازید و سپس خاصیت Standard مربوط به آنرا به tsbMin تنظیم کنید. همین! :لبخند:
موفق باشید...

[mbshareat]

می بخشید اگه نخوام از کامپوننت استفاده کنم، دستوری برای تعیین نوع پنجره سراغ ندارین؟
من فکر می کردم DrawFrameControl ممکنه کمک کنه ولی کار نکرد!

[mbshareat]

چرا کد زیر جواب نمیده؟

procedure TForm1.FormCreate(Sender: TObject);
Var
hMenuHandle:Integer;
Begin
hMenuHandle := GetSystemMenu(Handle, False);
if (hMenuHandle <> 0) then
EnableMenuItem(hMenuHandle, SC_Minimize, MF_BYCOMMAND Or MF_ENABLED );
end;

اینجا (http://www.koders.com/delphi/fid4CFA7E36BC1002F636F687DA6AA2046579B85DEE.aspx) هم رفتم اما نفهمیدم کدوم دستور به درد میخوره؟

[mbshareat]

این کد هم جواب نداد:

var
l: DWORD;
begin
l := GetWindowLong(Self.Handle, GWL_STYLE);
l := l Or WS_MINIMIZEBOX;
l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;

همینطور این یکی:
..
private
procedure CreateParams(var Params: TCreateParams);Override;
..
procedure TForm1.CreateParams(var Params: TCreateParams) ;
begin
inherited;
Params.Style := Params.Style Or WS_MINIMIZEBOX;
end;

کسی نظری نداره؟

[BORHAN TEC]

سلام
دوست عزیز خوب چرا از همون JVCL استفاده نمی کنید؟
JVCL کاملاً رایگان است و فکر نمی کنم توسعه اش هیچ وقت متوقف شود. در ضمن اگر نمی خواهید از آن استفاده کنید می توانید نگاهی به کدهایش بیاندازید و از آن استفاده کنید.

[mbshareat]

من اشتراک پر سرعت ندارم اما کدش نگاه کردم سر راست نیست که سر در بیارم.
یه سایت پیدا کردم که یونیتهاش رو داشت.
فوقش مجبور بشم برای اینکه ارتفاع پنجره برنامه کم بشه از تصویر برای فرم استفاده کنم.
در هر صورت ممنون.