طريقة لاختيار كل المكونات الموجودة في الفورم

[S.FATEH]

السلام عليكم يوجد 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 


و السلام عليكم