View Full Version : auto hide
حمیدرضاصادقیان
پنج شنبه 22 اردیبهشت 1384, 20:30 عصر
سلام دوستان
میخواستم ببینم چطور میشه فرمم رو جوری طراحی کنم که اگر روش رفتم ظاهر بشه و اگر ماوس از روش برداشته شد مخفی بشه. :sunglass:
مثل auto hide taskbar
Touska
پنج شنبه 22 اردیبهشت 1384, 21:22 عصر
سادترین راه با استفاده از یک Timer ولی خیلی پرش داره و دیگر استفاده از Bellinium Effect یا Animation Effect
موفق باشید :flower:
m-khorsandi
جمعه 23 اردیبهشت 1384, 14:06 عصر
درود
من تونستم یه کارایی بکنم، ببین شاید کمکت کنه:
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.
البته اگه بیشتر روش کار کنی حتما جواب میگیری.
حمیدرضاصادقیان
شنبه 24 اردیبهشت 1384, 14:11 عصر
جالب بود.به دردم میخوره.ولی باید خودم بیشتر روش کار کنم.تکمیل شد میذارم اینجا دوستان استفاده کنند.
:flower:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.