امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
کپی از یک المان ؟؟
نویسنده پیام
Majid_Ebru آفلاین
كاربر دو ستاره
**

ارسال‌ها: 153
موضوع‌ها: 32
تاریخ عضویت: مرداد ۱۳۸۶

تشکرها : 350
( 59 تشکر در 32 ارسال )
ارسال: #1
Rolleyes  کپی از یک المان ؟؟
سلام
چطوری میشه در زمان اجرا از یه المان کپی گرفت؟؟
فرض کنید که مثلن توی فورم یه گرید داریم و کلی هم تنظیماتش رو تغییر دادیم ، حالا در زمان اجرا از همین المان می خوام یه کپی بگیرم با نام دیگه؟؟
ممنون

یاس : پس باخت کسی که به حمله نرفت .
احتیاج ، مادر اختراع
۲۱-مرداد-۱۳۹۵, ۰۹:۳۸:۳۷
وب سایت ارسال‌ها
پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال‌ها: 3,947
موضوع‌ها: 352
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 5184
( 9869 تشکر در 2648 ارسال )
ارسال: #2
RE: کپی از یک المان ؟؟
کپی یک پنل

کد:
{ This code shows how to clone a TPanel (Panel1)
 You can do it with any other component

 Dieser Code zeigt, wie ein TPanel (Panel1) geklont
 werden kann. Das funktioniert natürlich auch mit
 anderen Komponenten
}

procedure TForm1.Button1Click(Sender: TObject);
var
 ms: TMemoryStream;
 s: string;
 p, temp: TPanel;
 x,y: Integer;
begin
 ms := TMemoryStream.Create;
 try
   temp := panel1;
   s := panel1.Name;
   panel1.Name := '';
   try
     ms.WriteComponent(temp);
     ms.Position := 0;
     p := TPanel.Create(Self);
     ms.ReadComponent(p);
     with p do
     begin
       x := panel1.Left;
       y := panel1.Top;
       Inc(x, 5);
       Inc(y, 5);
       SetBounds(x, y, Width, Height);
       Parent := Self;
       Name := Format('Panel%d_%d', [x, y]);
     end;
   finally
     temp.Name := s;
     panel1 := temp;
   end
 finally
   ms.Free;
 end; { finally }
end;

[تصویر:  xshon.png]
از آن نماز که خود هیچ از آن نمی فهمی خدا چه فایده و بهره اکتساب کند
تفاخری نبود مر خدای عالم را که چون تو ابلهی او را خدا حساب کند
۲۵-مرداد-۱۳۹۵, ۱۰:۴۷:۳۸
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : Majid_Ebru, babyy, vigraz
Majid_Ebru آفلاین
كاربر دو ستاره
**

ارسال‌ها: 153
موضوع‌ها: 32
تاریخ عضویت: مرداد ۱۳۸۶

تشکرها : 350
( 59 تشکر در 32 ارسال )
ارسال: #3
RE: کپی از یک المان ؟؟
سلام
متاسفانه جواب نداد؟!؟!؟
روش دیگه ای نیست؟

یاس : پس باخت کسی که به حمله نرفت .
احتیاج ، مادر اختراع
۳۱-مرداد-۱۳۹۵, ۱۳:۳۱:۳۳
وب سایت ارسال‌ها
پاسخ
Majid_Ebru آفلاین
كاربر دو ستاره
**

ارسال‌ها: 153
موضوع‌ها: 32
تاریخ عضویت: مرداد ۱۳۸۶

تشکرها : 350
( 59 تشکر در 32 ارسال )
ارسال: #4
RE: کپی از یک المان ؟؟
سلام
کاملن به روش سنتی این کار رو کردم :
تمام تنظیمات عنصر جدید رو کپی کردم
کد:
     L_PGC := TScrollBox.Create(Form_Main);
     Form_Main.PageControl1.AddTabSheet.Name:= L_Str_Temp;
     Inc(L_i);
     with L_PGC do begin
       Parent := Form_Main.PageControl1.Pages[L_i];
       //Name:= IntToStr(Form_Main.PageControl1.ActivePageIndex);
       Caption:= L_Str_Temp;
       Name:= 's'+IntToStr(L_i);
       //ShowMessage('Parent.Name : '+Parent.Name);
       Align:=alClient;
       Anchors:=[akBottom,akLeft,akRight,akTop];
       AutoScroll:= False;
       Cursor:= crArrow;
       DockSite:= True;
       with HorzScrollBar do begin
         Increment:= 5;
         Page:=50;
         Range:=600;
         Smooth:= True;
         Tracking:= True;
       end;
       with VertScrollBar do begin
         Increment:= 5;
         Page:=50;
         Range:=600;
         Smooth:= True;
         Tracking:= True;
       end;
       OnMouseDown:=  Form_Main.ScrollBox1.OnMouseDown;
       OnMouseEnter:= Form_Main.ScrollBox1.OnMouseEnter;
       OnMouseLeave:= Form_Main.ScrollBox1.OnMouseLeave;
       OnMouseMove:=  Form_Main.ScrollBox1.OnMouseMove;
       OnMouseUp:=    Form_Main.ScrollBox1.OnMouseUp;
       OnExit:=       Form_Main.ScrollBox1.OnExit;
     end;
یه سوال دارم
توی خط اول عنصر L_PGC رو می سازم ، خط آخر باید آزادش کنم؟؟؟
چطوری ممنون

یاس : پس باخت کسی که به حمله نرفت .
احتیاج ، مادر اختراع
۳۱-مرداد-۱۳۹۵, ۲۲:۰۰:۴۳
وب سایت ارسال‌ها
پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال‌ها: 3,947
موضوع‌ها: 352
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 5184
( 9869 تشکر در 2648 ارسال )
ارسال: #5
RE: کپی از یک المان ؟؟
چرا ازادش کنین؟

برای ازاد کردن

کد php:
L_PGC.free

[تصویر:  xshon.png]
از آن نماز که خود هیچ از آن نمی فهمی خدا چه فایده و بهره اکتساب کند
تفاخری نبود مر خدای عالم را که چون تو ابلهی او را خدا حساب کند
۰۱-شهریور-۱۳۹۵, ۱۰:۱۴:۴۶
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : babyy, Majid_Ebru
Majid_Ebru آفلاین
كاربر دو ستاره
**

ارسال‌ها: 153
موضوع‌ها: 32
تاریخ عضویت: مرداد ۱۳۸۶

تشکرها : 350
( 59 تشکر در 32 ارسال )
ارسال: #6
RE: کپی از یک المان ؟؟
چون دارم توی یه تابع از این دستورات استفاده کنم.
هر بار که این تابع رو فراخوانی می کنم ، دارم از نمونه L_PGC می سازم.

یاس : پس باخت کسی که به حمله نرفت .
احتیاج ، مادر اختراع
۰۲-شهریور-۱۳۹۵, ۲۱:۳۲:۱۰
وب سایت ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Rolleyes [سوال] نحوه کپی کردن Shape Majid_Ebru 1 1,595 ۲۰-دى-۱۳۹۴, ۰۰:۲۱:۱۲
آخرین ارسال: Majid_Ebru
  اجرای برنامه ای با Table با کپی شدن در هر مسیری alireza_p 3 2,670 ۲۷-دى-۱۳۸۸, ۱۵:۵۳:۴۸
آخرین ارسال: alireza_p
  چطوری میشه نوشته ای رو از یه Textbox گرفت و و در یک فایل متنی ضبتش کرد؟ kiko208 2 2,013 ۳۰-مرداد-۱۳۸۷, ۱۱:۴۴:۱۰
آخرین ارسال: veyskarami
  دادن پیغام بعد از جستجوی یک فایل IISecurity.C 1 1,987 ۱۳-اسفند-۱۳۸۶, ۲۱:۴۸:۱۴
آخرین ارسال: lord_viper

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS