خوب اين انتخاب چه طوري بايد انجام بشه؟نقل قول:
در مورد tile هم بايد سرچ كنم اما چون اينترنت پر سرعت ندارم ، طول مي كشه؟
ميشه بيشتر راهنماي كنيد؟!
در مجموع ، ممنونم
Printable View
خوب اين انتخاب چه طوري بايد انجام بشه؟نقل قول:
در مورد tile هم بايد سرچ كنم اما چون اينترنت پر سرعت ندارم ، طول مي كشه؟
ميشه بيشتر راهنماي كنيد؟!
در مجموع ، ممنونم
سلام
1-اگه منظور شما استفاده از
هست ، این راه رو هم آزمنایش کردم اما نمی دونم جرا فقط یک بار پنجره میاد جلو و اگه دوباره روی کلید کلیک کنم میره پشت و دیگه هم نمیاد جلو ؟؟کد:SetWindowPos(Form2.Handle,HWND_BOTTOM,0, 0, 0, 0,SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW );
البته اگه از اسم فرمی که تازه ساخته میشه استفاده کنم در هیچ حالت کار نمی کنه؟؟
البته فقط HWND_BOTTOM کار می کنه و HWND_TOP کار نمی کنه
2-آقا Tile چیدمان فرم های رو عوض میکنه؟
من می خوام فرمی که پشته تمام فرم ها هست ، بیاد جلو؟
هدف اینه که اگه یکی از فرمهای فرزند باز هست با کلیک کردن فرم ، فرم مورد نظر بیاد جلو
شما خیلی راحت میتونین با فرمان Bringtofront این کار رو بکنین.
لطفا فقط بک کمی خلاقیت نشون بدین دوستان. بالاخره ویندوزم رو عوض کردم و دلفی رو ریختم و در کنمتر از 3 دقیقه مشکل شما حل شد.
فایل نمونه برای دانلود :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
از شدت شرمندگي روم نميشه پست بزنم.
اين چه آبرو ريزي بود.
به خدا اينقدر به حواشي موضوع فكر كردم ، اصلاً يادم رفت كه به اين گزينه فكر كنم يا نگاه كنم.
.
.
.
.
.
آقا برنامه شما را امتحان کردم .
درسته جواب ميده اما شما فرم ها رو Autocreate کرديد.
فرمهاي من AutoCreate نيست و دستور BringtoFront متاسفانه باز هم جواب نمي ده؟؟
البته خوتون فرموديد که :
.نقل قول:
.
.
الان هم يه مشکله ديگه؟!؟!
من براي باز کردن فرم پنجره از 2 طريق استفاده مي کنم :
1- با استفاده از گزينه mainmenu
2- استفاده از BitButton
کد اصلي به صورت زير و روي رويداد گزينه mainmenu نوشته شده :
مشکل اينجاست که اگه فرم فرزند باز باشه و شما از گزينه mainmenu براي باز کردن فرم فرزند استفاده کنيد ارور مي ده :کد:procedure TFMain.BitBtn1Click(Sender: TObject);
begin
N4Click(Sender);
end;
procedure TFMain.N4Click(Sender: TObject);
var
F_Asnad : TFAsnad; //Asnad = اسم فرم فرزند
begin
if Bool_FAsnad then //آيا فرم فررزند بازه ؟
begin
F_Asnad:=TFAsnad.Create(Self);
F_Asnad.FormStyle:=fsMDIChild;
Bool_FAsnad:=False; // براي اينکه از فرم فرزند ، فقط يه پنجره باز بشه
end
else
begin
F_Asnad.BringToFront;//اگه پنجره فرزند بازه بياد جلو
end;
end;
Abestract Error ??
امم اگه از کلید استفاده کنید این ارور نمایش داده نمیشه؟
می دونم سوالم مبتدی اما کمک کنيد لطفاً
سلام
لطفاً كمك كنيد؟
با تشكر
شرمنده. چند وقت آن نیودم :
1. خاصیت Child رو توی DesignView (قبل Run) تخصیص بدین.
2. از n4.click استفاده کن.
3. متغیرت رو به صورت Global تعریف کن (همون جایی که asnad_show رو تعریف کردی)
4. uses مربوط به قرمت رو در بالای پروژه بنویس تا ارر نده.