با سلام خدمت همه ی دلفی کارای عزیز
می خواستم بدونم چطور میشه تو دلفی یه فرم به اشکال مختلف مثلاً شبیه بیضی درست کرد.
قبلاً از جوابهای شما تشکر میکنم
به امید دیدار
Printable View
با سلام خدمت همه ی دلفی کارای عزیز
می خواستم بدونم چطور میشه تو دلفی یه فرم به اشکال مختلف مثلاً شبیه بیضی درست کرد.
قبلاً از جوابهای شما تشکر میکنم
به امید دیدار
سلام
این هم از کد :
موفق باشیکد:var h:THandle;
begin
H:=CreateEllipticRgn(40,40,Width,Height);
SetWindowRgn(Handle,h,True);
end;
soldier جان بابت جوابت ازت خیلی خیلی تشکر می کنم.
دستت درد نکنه ایشاالله فرصت بشه جبران کنم.
به امید دیدار.
سلام
خواهش مي كنم.
اگر مي خواستي كد اون رو كه مثل Winamp وقتی فرم رو گرفتی و
کشیدی جاش عوض بشه. بگو تا بهت بدم.
موفق باشی. بای
سلام
خدمت سولجير جان
ببخشيد ميشه در مورد دستوري كه نوشتي توضيح بيشتري بدهي مثلا اگر 40 را 100 بكني چه تغييري ايجاد مي شود البته من خودم امتحان كردم ولي چيزي متوجه نشدم
سلام
اين عدد 40 واسه اينه كه چقدر زاويه فرم رو به حالت گرد بكنه.
حالا شما به جاي 40 بنويس 5 ببين چه تاثيري داره .
توضيح كامل (تحليل)
متغير H یک هندل هست. و براش یک رکت به صورت دایره ایجاد می کنهکد:H:=CreateEllipticRgn(40,40,Width,Height);
و به اینصورت به فرم نسبت میده
اميدوارم كه توضیحات کافی و بدرد بخور باشهکد:SetWindowRgn(Handle,h,True);
اگر باز هم سوالی داشتید بپرسید اگر هم توضیح بیشتر می خواستید
بگید من بیشتر توضیح بدم
با سلام
اول از اينكه پاسخم را دادي تشكر ميكنم
اگه سوالي داشتم باز هم مطرح مي كنم
می گم کدبرداشتن استایل پیش فرض فرم در دلفی چیه(منظورم همون exitوminimizeهست)
سلام
این هم از کد .
موفق باشیکد:BorderStyle := bsNone;
خيلي ممنون
اما دستور مينيمايز چيه
سلام
اگر مي خواهي برنامه رو ميني مايز كني اينطوري
بایکد:Application.Minimize;
خيلي ممنون ميگم اما چرا تو توابعformstyle مینی مایز نداریم چون من فکر میکردم باید بین اونا باشه اما چیزی پیدا نکردم
بازم ممنون(به این میگن تمدن)
فکر می کنمنقل قول:
نوشته شده توسط amin a.^2
application.minimize
و
form1.windowstate:=wsminimized
هر دو تا یک کار میکنند
متوجه منظورت شدم. !!!!نقل قول:
چرا تو توابعformstyle مینی مایز نداریم چون من فکر میکردم باید بین اونا باشه اما چیزی پیدا نکردم
اگر مي توني یه توضیحی بده.
دلتاپرو. یه نگاهی به پست 11 بکن. صواب داره :)
سولجر جان اولاَ اگه منظور منا فهميديد پس چرا گفتيد بيشتر توضيح بديد :blink:نقل قول:
متوجه منظورت شدم. !!!!
اگر مي توني یه توضیحی بده.
دلتاپرو. یه نگاهی به پست 11 بکن. صواب داره :)
در ضمن دلتا پروجان جواب منا دادند همون تابع دومشون
از هردوي شِماخيلي ممنونم
آخه سوال اول شما جوابش اون بود كه توي پست 11 گفتم.نقل قول:
سولجر جان اولاَ اگه منظور منا فهميديد پس چرا گفتيد بيشتر توضيح بديد
بار دوم متوجه منظور سوالت نشدم :
هنوز هم منظورت رو نفهميدم. اما بي خيالش شو . بزاريد اين تاپيم بره زير.نقل قول:
چرا تو توابعformstyle مینی مایز نداریم چون من فکر میکردم باید بین اونا باشه اما چیزی پیدا نکردم
حتي يك پست ديگه هم نديد.(البته اگر مشكلي نداره. و امين جون نمياد كلمو بكنه) در ضمن جواب اين پست رو هم نديد
در ضمن خواهش مي كنم. قابلي نداشت :)
موفق باشيد. باي
ببخشید سلجر جان شرمنده ندیدمنقل قول:
نوشته شده توسط soldier
formstyle برای ظاهر فرم هست نه باتننقل قول:
نوشته شده توسط amin a.^2
مثلا در قسمت بردر استایل میتونی دکمه های مینیمایز ماکسیمایز و کلوز را حذف کنی
خيلي ممنون از راهنمايي تون البته من منظورم همون در خصوصيات فرم بود كه شما هم جواب داديدنقل قول:
برای ظاهر فرم هست نه باتن
مثلا در قسمت بردر استایل میتونی دکمه های مینیمایز ماکسیمایز و کلوز را حذف کنی
از سولجر جان هم عذر مي خوام كه به تاپيك دادم :cool:
سولجر جان دستور جالبي بود.
حالا من چهار دستور مكملش رو ميگم:
اولي براي minimize كردن فرم هست.کد:1.application.minimize
2.application.terminate
3.ReleaseCapture;
Perform(wm_Syscommand, $f012, 0);
دومي براي بستن فرمه (البته دستورات زيادي براي بستن فرم وجود داره ولي اين از همه كاملتره)
سومي هم اگه تو رويداد mouseDown فرم بگذاري ميتوني فرمو حركت بدي.:biggrin:
سلامنقل قول:
ای ول. سومی از همه باحال تر بود.
اما در مورد دومی بگم که امکان جالبش اینه که تمام پروژه رو Close میکنه.
و از دستور Close خیلی بهتره. چون دیگه نمیخواهد اسم فرم اصلی رو بنویسی.
در مورد سومی. برای اینکه اشتباه نشه من جداگانه اینجا میزارمش.
موفق باشید . بایکد:ReleaseCapture;
Perform(wm_Syscommand, $f012, 0);