واجهة اعدادات للداتابيز

السلام عليكم...

لتنفيذ ذلك تحتاج إلى إجراء موحد يقوم بفحص حالات الـ CheckBoxes جميعاً و إنشاء الـ String المطلوب.

مثال:

ضع على الـ Form 4 مكونات CheckBox و اضبط عناويتنها (Caption) على تسميات الصلاحيات لديك.

ضع Memo على الـ Form، و امسح النص من الخاصية Lines التابعة للـ Memo.

انقر نقراً مزدوجاً على CheckBox1 لإنشاء كود الحدث OnClick الخاص به.

اكتب الكود التالي:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
    MyStr: string;
begin
    MyStr := '';

    if CheckBox1.Checked then MyStr := CheckBox1.Caption;

    if CheckBox2.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox2.Caption;
    end;

    if CheckBox3.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox3.Caption;
    end;

    if CheckBox4.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox4.Caption;
    end;

    Memo1.Text := MyStr;
end;

حدد الـ CheckBoxes الثلاث الباقية و اضبط معالج الحدث OnClick لها جميعاً على نفس المعالج CheckBox1Click الخاص بالـ CheckBox1. بهذا الشكل ستعمل الـ CheckBoxes الأربعة على تنفيذ نفس الكود عند النقر على أي منها.

نرجو الاستفادة و السلام.

najy_zl كتب:

السلام عليكم...

لتنفيذ ذلك تحتاج إلى إجراء موحد يقوم بفحص حالات الـ CheckBoxes جميعاً و إنشاء الـ String المطلوب.

مثال:

ضع على الـ Form 4 مكونات CheckBox و اضبط عناويتنها (Caption) على تسميات الصلاحيات لديك.

ضع Memo على الـ Form، و امسح النص من الخاصية Lines التابعة للـ Memo.

انقر نقراً مزدوجاً على CheckBox1 لإنشاء كود الحدث OnClick الخاص به.

اكتب الكود التالي:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
    MyStr: string;
begin
    MyStr := '';

    if CheckBox1.Checked then MyStr := CheckBox1.Caption;

    if CheckBox2.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox2.Caption;
    end;

    if CheckBox3.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox3.Caption;
    end;

    if CheckBox4.Checked then begin
        if MyStr <> '' then MyStr := MyStr + ';';
        MyStr := MyStr + CheckBox4.Caption;
    end;

    Memo1.Text := MyStr;
end;

حدد الـ CheckBoxes الثلاث الباقية و اضبط معالج الحدث OnClick لها جميعاً على نفس المعالج CheckBox1Click الخاص بالـ CheckBox1. بهذا الشكل ستعمل الـ CheckBoxes الأربعة على تنفيذ نفس الكود عند النقر على أي منها.

نرجو الاستفادة و السلام.

هذا ما كنت ارجوه فعلا و اقول حصلت الاستفادة ولكم من الله خير الثناء والشكر , ولكن بالمناسبة ولان اجابتك احضرتني السؤال هل يمكن من ارفاق اكثر من معالج احداث لمكون واحد بمثالنا هذا ان يكون للمكون CheckBox2 معالج حدث CheckBox1 مع احداث مكونات اخرى مثلا ComboBoxCloseup على التوالي؟ وبتتابع معين في بعض الاحيان اتمنى ان تكون مثل هذه المعالجة موجودة بدلاً من كتابة اجراءات جديدة

سلمكم الله

طريقة أخرى:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Lines.Clear;
  for I := 0 to ControlCount-1 do
    if (Controls is TCheckBox) then
      with (Controls as TCheckBox) do
      if Checked then Memo1.Lines.Add(Caption);
  Memo1.Lines.Delimiter := ';';
  Memo1.Lines.Text := Memo1.Lines.DelimitedText;
end;

أجل يمكن ذلك إذا كانت المعلمات Parameters متكافئة لكل معالجات الأحداث، مثال:

procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Edit1Change(Sender: TObject);

لاحظ كلاهما يأخذ TObject

بينهما هنا الأمر مختلف إذا كان الحدث يأخذ معلمات مختلفة:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

لكن يمكن استدعاء الحدث الأصلي باعتباره Function/Procedure في هذه الحال:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Edit1Change(Edit1);
end;

بالتوفيق.