hadisalahi2
دوشنبه 05 خرداد 1393, 18:07 عصر
سلام به همگی دوستان عزیز
یک فریم دارم که وظیفه اون نگهداری تصاویری هستش و داخش میشه تصویر اضافه کرد و یا اسکن کرد.
حالا یک فرم دارم که در سه تب جداگانه ، سه بار این فریم ها رو ایجاد کردم به صورت زیر:
کد ایجاد فریم :
procedure TCompanyForm.CreatFrame(Parent: TsTabSheet);
Var TempFrame:TFrame;
begin
Try
TempFrame:=TPictureFrame.Create(Self);
TempFrame.Name:='FrPicture'+IntToStr(Parent.PageIn dex);
TempFrame.Parent:=Parent;
(TempFrame.FindComponent('PictureList') as TAdvSmoothSlideShow).Items.Clear;
except on E: Exception do
InsertToException(Self.Name,'CreatFrame',e.Message );
end;
end;
کد فراخوانی فریم :
CreatFrame(Step4);
CreatFrame(Step5);
CreatFrame(Step6);
حالا من یک پروسیجر داخل این فریم دارم که کار ذخره تصاویر داخل فریم رو انجام میده.
حالا چطوری میتونم پروسیجر داخل فریم رو از داخل فرم خودم صدا بزنم ، طوری که هر پروسیجر کار ذخیره تصاویر رو با تصاویر داخل هر فریم و با کد جدا گانه انجام بده؟
امیدوارم منظورم رو به خوبی رسونده باشم ؟:اشتباه:
یک فریم دارم که وظیفه اون نگهداری تصاویری هستش و داخش میشه تصویر اضافه کرد و یا اسکن کرد.
حالا یک فرم دارم که در سه تب جداگانه ، سه بار این فریم ها رو ایجاد کردم به صورت زیر:
کد ایجاد فریم :
procedure TCompanyForm.CreatFrame(Parent: TsTabSheet);
Var TempFrame:TFrame;
begin
Try
TempFrame:=TPictureFrame.Create(Self);
TempFrame.Name:='FrPicture'+IntToStr(Parent.PageIn dex);
TempFrame.Parent:=Parent;
(TempFrame.FindComponent('PictureList') as TAdvSmoothSlideShow).Items.Clear;
except on E: Exception do
InsertToException(Self.Name,'CreatFrame',e.Message );
end;
end;
کد فراخوانی فریم :
CreatFrame(Step4);
CreatFrame(Step5);
CreatFrame(Step6);
حالا من یک پروسیجر داخل این فریم دارم که کار ذخره تصاویر داخل فریم رو انجام میده.
حالا چطوری میتونم پروسیجر داخل فریم رو از داخل فرم خودم صدا بزنم ، طوری که هر پروسیجر کار ذخیره تصاویر رو با تصاویر داخل هر فریم و با کد جدا گانه انجام بده؟
امیدوارم منظورم رو به خوبی رسونده باشم ؟:اشتباه: