عرض العناصر الموضوعة على الفورم وعددها

اذهب الى الأسفل

عرض العناصر الموضوعة على الفورم وعددها

مُساهمة  djelal في 26/11/2015, 8:16 pm


بسم الله الرحمن الرحيم

عرض العناصر الموضوعة على الفورم وعددها

الكود:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
 Memo1.Lines.Clear;
 for i := 0 to ComponentCount - 1 do
  Memo1.Lines.Add(Components[i].name);
 Label1.Caption := IntToStr(i);
end

djelal
مبتدئ في البرمجة

عدد المساهمات : 42
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عرض العناصر الموضوعة على الفورم وعددها

مُساهمة  djelal في 15/4/2018, 11:17 pm


تلوين مربع النص من نوع TEdit بالون لازرق
الكود:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
  // كل مربع نص من نوع TEdit لونه بالازرق
  if(Components[i] is TEdit)then (Components[i] as TEdit).Color := clBlue;
  if(Components[i] is TLabel)then (Components[i] as TLabel).Color := clRed;
  if(Components[i] is TPanel)then (Components[i] as TPanel).Color := clGreen;
  end;
end;

معرفة لون المكون وفي هذه الحالة من نوع TEdit
الكود:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  bool: boolean;
begin
  for i := 0 to ComponentCount - 1 do
  begin
  bool := (Components[i] is TEdit);
  if bool and ((Components[i] as TEdit).Color = clBlue) then
    caption := 'Blue';
  end; 
end;

وبهذه الطريقة يمكن معرفة اسم المكون او ماهو مكتوب في عنوان المكون

(Components[i] as TEdit).Name
(Components[i] as TEdit).Text or Caption
(Components[i] as TEdit).Font.Name or Font.color
(Components[i] as TEdit).Left or Top or Height or Width
(Components[i] as TEdit).Visible or Enabled

djelal
مبتدئ في البرمجة

عدد المساهمات : 42
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى