+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة لاختيار كل المكونات الموجودة في الفورم (/showthread.php?tid=5543)
الصفحات:
1
2
طريقة لاختيار كل المكونات الموجودة في الفورم - karamofweb - 11-09-2013
هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ EDIT و DATETIMEPicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
طريقة لاختيار كل المكونات الموجودة في الفورم - larva - 11-09-2013
السلام عليكم و رحمة الله
karamofweb كتب :هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ EDIT و DATETIMEPicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
ابدأ بهذا و قم بالتعديلات التي تناسب ما تريد ان تصل اليه.
كود :
procedure HandleCmnts(TargetForm: TComponent);
var
i: Integer;
begin
for i := TargetForm.ComponentCount - 1 downto 0 do
TEdit(TargetForm.Components[i]).Text := 'Hello';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
HandleCmnts(Form1);
end;طريقة لاختيار كل المكونات الموجودة في الفورم - S.FATEH - 11-09-2013
السلام عليكم يوجد ComponentCount و ControlCount
مثال
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if (Components[i] is TEdit) then
TEdit(Components[i]).Text := '';
end;
مثال اخر
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
if (Controls[i] is TDateTimePicker) then
TDateTimePicker(Controls[i]).Format := 'dd/mm/yyy';
end;
يجب ان تحقق من النمط الذي تريده ثم تقوم بعملية Type Cast للقيام بالعمليات التي تريدها لا تنسى التحقق مهم جدا
PHP كود :
if (Controls[i] is TDateTimePicker) then
و السلام عليكم
طريقة لاختيار كل المكونات الموجودة في الفورم - karamofweb - 11-09-2013
شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟
طريقة لاختيار كل المكونات الموجودة في الفورم - Agmcz - 11-09-2013
karamofweb كتب :شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت TEdit
ستنفذ التعليمة
كود :
TEdit(TargetForm.Components[i]).Text := 'Hello';وبالتوفيق
طريقة لاختيار كل المكونات الموجودة في الفورم - karamofweb - 12-09-2013
ghost-dz كتب :السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت tedit
ستنفذ التعليمة
إن شاء الله تكون فهمت قصديكود :tedit(targetform.components[i]).text := 'hello';
وبالتوفيق
اشكرك لكن الطريقة لم تغير من قيم التايم بيكر ... زيادة عن هذا تغيرت قيم التيمر الى تواريخ خاطئة مثال 09/50/2013 ... 12/34/2013 ما الحل ؟
طريقة لاختيار كل المكونات الموجودة في الفورم - Agmcz - 12-09-2013
karamofweb كتب :اشكرك لكن الطريقة لم تغير من قيم التايم بيكر ... زيادة عن هذا تغيرت قيم التيمر الى تواريخ خاطئة مثال 09/50/2013 ... 12/34/2013 ما الحل ؟أنا لا أرى أي شيء غير طبيعي
كود :
var
I: integer;
begin
for I := 0 to ComponentCount -1 do
begin
if Components[I] is TDateTimePicker then
begin
with Components[I] as TDateTimePicker do
begin
Format := FormatDateTime('dd-mm-yyyy', Now);
end;
end;
end;
end;طريقة لاختيار كل المكونات الموجودة في الفورم - المحجوب - 14-09-2013
karamofweb كتب :هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ edit و datetimepicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتالي
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها
والله اعلم
طريقة لاختيار كل المكونات الموجودة في الفورم - karamofweb - 14-09-2013
المحجوب كتب :حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتاليانا طلبت الطريقة برمجيا
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها
والله اعلم
طريقة لاختيار كل المكونات الموجودة في الفورم - المحجوب - 14-09-2013
إقتباس :انا طلبت الطريقة برمجيا
افضل من ان تواجه اخطاء : )