دسترسی به کل فرم های برنامه خود از طریق کد نویسی

دسترسی به کل فرم های برنامه خود از طریق کد نویسی


var
    i:Integer;
begin
    i := Screen.FormCount;
    MessageDlg(IntToStr(i) + ' formularios en pantalla/forms in screen', mtInformation, [mbOK], 0);
    for i := 0 to (Screen.FormCount - 1) do begin
     Screen.Forms[i].Caption := 'Form: ' + IntToStr(i);
    end;

/ 1 نظر / 13 بازدید
فروشگاه تک زنگ

دوست خوب نادیده ام... سلام فروشگاه تک زنگ آغاز به کار کرد. این فروشگاه متعلق به خود شماست. همکاران ما در حال اضافه کردن محصولات جدید به فروشگاه هستند. اگر محصول خاصی مدنظر شماست به ما اطلاع دهید. فروش فوق العاده ما را از دست ندهید. در ضمن برای تبادل لینک رایگان(به مدت محدود) نیز کافی است تا کدهای موجود در صفحه لینکدونی فروشگاه را در قالب وبلاگ خود copy و paste کرده، سپس از قسمت تماس با ما به ما اطلاع دهید تا همکاران ما لینک شما را بیفزایند. *تا این لحظه بیش از هشتاد وبلاگ به ما پیوسته اند.* (راستی! همزمان با نیمه شعبان تا 15 شهریور یک سورپرایز فوق العاده برای وبلاگ هایی که تبادل لینک کنند، داریم...) آدرس فروشگاه: دبلیو دبلیو دبلیو دات تک زنگ دات آی آر