انشاء عناصر بعدد غير معروف

delphi-n كتب:

اخواني اعضاء هذا المنتدى الرائع

السلام عليكم ورحمة الله وبركاته

لقد قمت بانشاء عدد خمسة من نوع Tpanel طبعاً اثناء التنفيذ بهذا الشكل

procedure TForm1.FormCreate(Sender: TObject);

var

i : integer;

begin

for i := 1 to 5 do

begin

Panel:=TPanel.Create(Self);

Panel.Caption:=IntToStr(i);

Panel.Parent := Self;

Panel.Name:='Panel'+inttostr(i);

// تحديد موقع كل بنل

Panel.Width := 100;

Panel.Left := 800 - i * 107;

Panel.Top := 50;

Panel.Height := 70;

//Panel.Caption:=IntToStr(i);

end;

--------------------------------------------

المطلوب اريد انشأ حدث لكل بنل حيث يتم النقر على أي بنل يظهر رسالة باسم البنل الذي تم النقر عليه

أرجو من لديه فكره عن الموضوع مساعدتي بمثال ولكم جزيل الشكر والتقدير..

السلام عليكم

اذا ممكن ان تشرح اكثر طلبك. و حاول نقل المثال الذي عملته و سنحاول التعديل عليه لاعطائك الحل المناسب.

بالتوفيق

السلام عليكم

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
	Button1: TButton;
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
  procedure Onclick(Sender: TObject);
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.Onclick(Sender: TObject);
begin
showmessage((Sender as Tpanel).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
Panel : TPanel;
begin
for i := 1 to 5 do
begin
Panel:=TPanel.Create(Self);
Panel.Caption:=IntToStr(i);
Panel.Parent := Self;
Panel.Name:='Panel'+inttostr(i);

// change Onclick envent

Panel.OnClick :=  Onclick;
//------------------------------

// تحديد موقع كل بنل
Panel.Width := 100;
Panel.Left := 800 - i * 107;
Panel.Top := 50;
Panel.Height := 70;

//Panel.Caption:=IntToStr(i);

end;
end;
end.

maosalah كتب:

السلام عليكم

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
	Button1: TButton;
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
  procedure Onclick(Sender: TObject);
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.Onclick(Sender: TObject);
begin
showmessage((Sender as Tpanel).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
Panel : TPanel;
begin
for i := 1 to 5 do
begin
Panel:=TPanel.Create(Self);
Panel.Caption:=IntToStr(i);
Panel.Parent := Self;
Panel.Name:='Panel'+inttostr(i);

// change Onclick envent

Panel.OnClick :=  Onclick;
//------------------------------

// تحديد موقع كل بنل
Panel.Width := 100;
Panel.Left := 800 - i * 107;
Panel.Top := 50;
Panel.Height := 70;

//Panel.Caption:=IntToStr(i);

end;
end;
end.

شكرا لمن قام بالرد حيث تم تطبيق الكود الذي كتبه الاخ maosalah ونجح ولله الحمد

تحياتي للجميع ولكم الشكر والتقدير.