auto hide

[حمیدرضاصادقیان]

سلام دوستان
میخواستم ببینم چطور میشه فرمم رو جوری طراحی کنم که اگر روش رفتم ظاهر بشه و اگر ماوس از روش برداشته شد مخفی بشه. :sunglass:
مثل auto hide taskbar

[Touska]

سادترین راه با استفاده از یک Timer ولی خیلی پرش داره و دیگر استفاده از Bellinium Effect یا Animation Effect

موفق باشید :flower:

[m-khorsandi]

درود

من تونستم یه کارایی بکنم، ببین شاید کمکت کنه:


private
// procedure CMMouseAct(var Message: TWMMouse); message WM_MOUSEMOVE;
procedure CMMouseAct(var Message: TWMSysCommand); message CM_MOUSEENTER;
procedure CMMousedeAct(var Message: TWMSysCommand); message CM_MOUSELEAVE;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
// WM_MOUSEMOVE
// WM_MOUSEHOVER
// WM_MOUSELEAVE
// TWMMouse

rocedure TForm1.CMMouseAct(var Message: TWMSysCommand);
begin
if Message.Msg = CM_MOUSEENTER then
Form1.Width := 200;
end;

procedure TForm1.CMMousedeAct(var Message: TWMSysCommand);
begin
if Message.Msg = CM_MOUSELEAVE then
Form1.Width := 113;
end;

end.


البته اگه بیشتر روش کار کنی حتما جواب میگیری.

[حمیدرضاصادقیان]

جالب بود.به دردم میخوره.ولی باید خودم بیشتر روش کار کنم.تکمیل شد میذارم اینجا دوستان استفاده کنند.
:flower: