داشتن لیست فرم های باز در یک منو؟

[oghab]

سلام
چطور میشه همانطر که توی دلفی ، فتوشاپ یا خیلی برنامه های دیگه در منوی windows پنجره هایی را که باز است را انتخاب کرئ که در روی بقیه فرم ها نمایش یابند!
من هم در فرم اولیه ام. در منو یک قسمتی داشته باشم که پنجره هایی که در حال حاضر show یا به اصطلاح در حال نمایش هستند را لیست کند. تا در با انتخاب هر کدام آن نمایش یابد!
چون در برنامه وقتی کاربر روی show desktop یا یک برنامه دیگر می رود. وقتی به برنامة ما بر می گردد. آخرین فرمی ر ا که روی آن بودیم را نشان نمی دهد!
حالا من چطور می توانم اسامی فرم هایی که close نیستند را در یک منو داشته باشم!
خیلی ممنونم.
موق باشید!

[m-khorsandi]

از این نمونه برنامه میتونید استفاده کنید:

[سید مسعود موحد]

از Handel فرمت استفاده بکن

[mzjahromi]

این کد شاید کمکت کنه:


for i:=0 to Application.ComponentCount-1 DO
if (Application.Components[i] is TForm)And( TForm(Application.Components[i]).visible) Then
Begin
. . . .
End

[oghab]

سلام
خیلی ممنونم از راهنماییهاتون
باید برم و امتحان کنم! اگه به مشکل برخوردم رو ی کمکتون حساب می کنم
در مورد نمونه برنامه! خیلی متشکر! ولی متاسفانه winrar من دچار مشکل شده و نمی تونم بازش کنمو اگه ممکنه zip شده اش را بفرستید! ممنون!
همگی موفق باشید!

[oghab]

سلام
من کد آقای محمد ذوالقدر استفاده کردم. کمکم کرد و تونستم بفهمم چطوری می تونم به اسم یا caption فرم های visible ام دسترسی پیدا کنم! خیلی متشکر! و مثلا توی label نشون بدم!
حالا می مونه مرحله دوم. یعنی نشون دادن اسم این فرم ها در منو. خودم نتونستم روش درست اضافه کردن چند گزینه و پاک کردن گزینه های قبلی به یک یک منو را پیدا کنم!
اگه در این مورد هم کسی راهنمایی کنه ممنون میشم!نمی دونم در نمونه برنامه جناب خرسندی این قسمت هست یا نه! متا سفانه نتونستم بازش کنم. چن همونطور که گفتم winrar ام درست کار نمی کنه و اگه ایشون لطف کنند و zip شده اش را بفرستند ممنون میشم!
handel فرم را هم نمی دونم چیه! و ازش چه استفاده ای می تونم بکنم! دیگه چیکار کنم! آماتورم!
موفق باشید
با تشکر

[سید مسعود موحد]

در برنامه آقای خرسندی این قسمت است
دقیقا مثل خود برنامه های ویراستار میباشد
هر پنچره ای که باز میشود در منوی Window یک آیتم اضافه میشود و با بستن آن آیتمش هم پاک میشود

[oghab]

چقدر خوب. پس کارم راه میفته! اگه زودتر winrar گیر بیارم! یا فایل zip شده اش را داشته باشم!
مرسی:لبخند:
چقدر آدم ذوق می کنه وقتی مشکلش حل میشه! و به این راحتی چیزای جدید و به درد بخور یاد می گیره! که معمولا تو کتابا نیست!
خدا خیرش بده کسی را که این سایت را راه انداخته ! و همینطور کسانی که چیزایایی را که بلدند از دیگران دریغ نمی کنن!
همگی موفق باشید!

[سید مسعود موحد]

دوست عزیز
من فایلو برات گذاشتم فقط کافی است که پسوند فایل رو به EXE تبدیل کنی تا باز بشود
موفق باشی

[oghab]

سلام آقای خرسندی
بالاخره تونستم فایل را باز کنم!
خیلی جالب بود، واقعا متشکرم!
موفق باشید
از بقیه دوستان هم متشکرم:لبخندساده