اضافة الكائنات الموجودة فوق الفورم أو العناصر، وتحديد كائن من قائمة كومبوبوكس

اضافة الكائنات الموجودة فوق الفورم أو العناصر، وتحديد كائن من قائمة كومبوبوكس
اضافة الكائنات الموجودة فوق الفورم أو العناصر، وتحديد كائن من قائمة كومبوبوكس


اضافة الكائنات الموجودة فوق الفورم أو العناصر، وتحديد كائن من قائمة كومبوبوكس

في الحدث كريتفورم
FormCreate
يتم اضافة كل الكائنات الموجودة فوق الفورم في قائمة كومبوبوكس
ComboBox1
وتحدلد اول كائن من القائمة
أما في الحدث كومبوبوكس شونج
ComboBox1Change
فيتم اختيار الكائن المحدد من القائمة

و في الحدث بوتون كليك أي حدث النقر( نقر العصفور حبة ثم ابتلعها )
Button1Click
يتم مسح محتوى مربعات النص الموجودة فوق الفورم
اي Form1

Form = فورم او نموذج
ComboBox = كومبوبوكس
Object = كائن او عنصر


procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
// حلقة تكرارية من صفر الى مجموع عدد الكائناتالموجودة فوق الفورم
for i := 0 to ComponentCount - 1 do
// اضافة الكائنات الموجودة فوق الفورم
ComboBox1.Items.AddObject(Components[i].Name,Components[i]);
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
// عرض او اظهار اول كائن في القائمة
ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
// يتم الاختيار حسب الكائن المختارمن القائمة
if (Sender is TComboBox) then
with (Sender as TComboBox) do
Form1.ActiveControl := TWinControl(Items.Objects[ItemIndex]);
// Caption := inttostr(ItemIndex);
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
// حلقة تكرارية من اجل مسح مربعات النص
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Clear;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if (Sender is TListBox) then
with (Sender as TListBox) do
Form1.ActiveControl := TWinControl(Items.Objects[ItemIndex]);
end;

///////////////////////////////