11-09-2013, 04:11 PM
هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ EDIT و DATETIMEPicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
تشكراتي
الصفحات : 1 2
11-09-2013, 04:11 PM
11-09-2013, 04:37 PM
السلام عليكم و رحمة الله
ابدأ بهذا و قم بالتعديلات التي تناسب ما تريد ان تصل اليه.
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;11-09-2013, 05:39 PM
السلام عليكم يوجد ComponentCount و ControlCount
مثال
مثال اخر
يجب ان تحقق من النمط الذي تريده ثم تقوم بعملية Type Cast للقيام بالعمليات التي تريدها لا تنسى التحقق مهم جدا
و السلام عليكم
مثال
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
و السلام عليكم
11-09-2013, 07:32 PM
شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟
11-09-2013, 09:17 PM
karamofweb كتب :شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت TEdit
ستنفذ التعليمة
كود :
TEdit(TargetForm.Components[i]).Text := 'Hello';وبالتوفيق
12-09-2013, 06:53 PM
ghost-dz كتب :السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت tedit
ستنفذ التعليمة
إن شاء الله تكون فهمت قصديكود :tedit(targetform.components[i]).text := 'hello';
وبالتوفيق
اشكرك لكن الطريقة لم تغير من قيم التايم بيكر ... زيادة عن هذا تغيرت قيم التيمر الى تواريخ خاطئة مثال 09/50/2013 ... 12/34/2013 ما الحل ؟
12-09-2013, 08:41 PM
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, 01:12 AM
karamofweb كتب :هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ edit و datetimepicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي
حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتالي
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها
والله اعلم
14-09-2013, 08:47 PM
المحجوب كتب :حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتاليانا طلبت الطريقة برمجيا
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها
والله اعلم
14-09-2013, 10:23 PM
إقتباس :انا طلبت الطريقة برمجيا
افضل من ان تواجه اخطاء : )
الصفحات : 1 2