السلام عليكم ورحمة الله وبركاته ،
في الحقيقة كانت مناسبة هذا الموضوع هي كالتالي :
أستعمل الفاست ريبورت في مشروعي ، و أنا على مقربة من الانتهاء من البرمجة ، اكتشفت أنني تركت في تقاريري امكانية التعديل عنه
أي أن الخاصية Edit للمكون frxReport مفعلة ،
فانتابني اليأس على المرور في جميع النوافذ (Forms) و تغيير خاصية جميع المكونات الفاست ريبورت ، واحدة واحدة...
ولك أن تتخيل التعب و النصب ، وربما أمر على مكون ما دون تغيير هذه الخاصية....
فانتابني سؤال و هو : كيف لي معرفة جميع المكونات من نوع FastReport لكن برمجيا ، وكان هذا الحل :
للبحث عن جميع مكونات من نوع label :
الأن مع الفاست ربورت و تغيير خاصية Edit :
أو حال آخر بسيط :
وكانت النتيجة رائعة و فرحة كبيرة...
وضعتها هنا للاستفادة.
في الحقيقة كانت مناسبة هذا الموضوع هي كالتالي :
أستعمل الفاست ريبورت في مشروعي ، و أنا على مقربة من الانتهاء من البرمجة ، اكتشفت أنني تركت في تقاريري امكانية التعديل عنه
أي أن الخاصية Edit للمكون frxReport مفعلة ،
فانتابني اليأس على المرور في جميع النوافذ (Forms) و تغيير خاصية جميع المكونات الفاست ريبورت ، واحدة واحدة...
ولك أن تتخيل التعب و النصب ، وربما أمر على مكون ما دون تغيير هذه الخاصية....
فانتابني سؤال و هو : كيف لي معرفة جميع المكونات من نوع FastReport لكن برمجيا ، وكان هذا الحل :
للبحث عن جميع مكونات من نوع label :
كود :
Var i:Integer;
begin
For i:=0 To ComponentCount-1 Do
If Components[i] Is TLabel Then
TLabel(Components[i]).Caption:='AAA';
end;الأن مع الفاست ربورت و تغيير خاصية Edit :
كود :
For i:= 0 To ComponentCount-1 Do
If Components[i] Is TfrxReport Then
TfrxReport(Components[i]).PreviewOptions.Buttons := [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick] ;أو حال آخر بسيط :
كود :
For i:= 0 To ComponentCount-1 Do
If Components[i] Is TfrxReport Then
TfrxReport(Components[i]).PreviewOptions.Buttons := TfrxReport(Components[i]).PreviewOptions.Buttons - [pbEdit];وكانت النتيجة رائعة و فرحة كبيرة...
وضعتها هنا للاستفادة.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
) عن شكرك أستاذ فاتح.