دخول

karamofweb

هل من طريقة لعمل parcour في جميع العناصر الموجودة في الفورم .... مثال عندي عدد غير محدد من الـ EDIT و DATETIMEPicker أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي

larva · 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;

**S.FATEH** · 11-09-2013, 05:39 PM

السلام عليكم يوجد 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, 07:32 PM

شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟

Agmcz · 11-09-2013, 09:17 PM

karamofweb كتب :شـــكرا احبائي لكن اين لي ان اجد هذه الكومبوننت ؟

السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت TEdit
ستنفذ التعليمة

كود :
TEdit(TargetForm.Components[i]).Text := 'Hello';

إن شاء الله تكون فهمت قصدي
وبالتوفيق

karamofweb · 12-09-2013, 06:53 PM

ghost-dz كتب :السلام عليكم
وهل طلب منك أحد ان تبحث أو تثبث مكونات :confused:
الحلقة تختبر العناصر الموجودة في الفورم إذا كانت tedit
ستنفذ التعليمة

كود :
tedit(targetform.components[i]).text := 'hello';
إن شاء الله تكون فهمت قصدي
وبالتوفيق

اشكرك لكن الطريقة لم تغير من قيم التايم بيكر ... زيادة عن هذا تغيرت قيم التيمر الى تواريخ خاطئة مثال 09/50/2013 ... 12/34/2013 ما الحل ؟

Agmcz · 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 أ ر يـــد ان اغير من خصائصها دفعة واحدة.
تشكراتي

حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتالي
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها

والله اعلم

karamofweb · 14-09-2013, 08:47 PM

المحجوب كتب :حدد الكل : استمر بالضغط ع شفت + الضغط بالزر الايسر للفأرة ع جميع العناصر بالتتالي
ثم اذهب خصائص وحدد الخاصية
سوف تتغير جميعها

والله اعلم

انا طلبت الطريقة برمجيا

المحجوب · 14-09-2013, 10:23 PM

إقتباس :انا طلبت الطريقة برمجيا

افضل من ان تواجه اخطاء : )

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة