دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه

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

طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه Empty طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه

مُساهمة  djelal 2/2/2022, 9:13 pm

طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه

Delphi
طريقة جمع عددين بدلفي

هذا تحسين للكود السابق.
عرض العناصر داخل بانل


الكود:


uses
 ExtCtrls, StdCtrls

  private
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  end;

var
  Form1: TForm1;
  Edit1, Edit2: TEdit;
  Label1, Label2, Label3: TLabel;
  Button1: TButton;
  Panel1: TPanel;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
 a1, b2: Integer;
begin
 try
  a1 := StrToInt(Edit1.Text);
  b2 := StrToInt(Edit2.Text);
  Label3.Caption := IntToStr(a1+b2);
 except
    on E: EConvertError do
      ShowMessage(E.ClassName + #10 + E.Message);
end;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text<> '')and(Edit2.Text<> '') then
  Button1.Enabled := true else Button1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  Form1.Font.Size := 11;
  Form1.Font.Style := [fsBold];
  Form1.Font.Name := 'Arial';

  // Panel1
  Panel1 := TPanel.Create(self);
  Panel1.Parent := Form1;
  Panel1.Left := 10;
  Panel1.Top := 10;
  Panel1.Height := 225;
  Panel1.Width := 409;

  // Label1
  Label1 := TLabel.Create(self);
  Label1.Parent := Panel1;
  Label1.Left := 50;
  Label1.Top :=  50;
  Label1.Caption := 'Number One:';

  // Label2
  Label2 := TLabel.Create(self);
  Label2.Parent := Panel1;
  Label2.Left := Label1.Left;
  Label2.Top :=  100;
  Label2.Caption := 'Number Two:';

  // Label3
  Label3 := TLabel.Create(self);
  Label3.Parent := Panel1;
  Label3.Left := 120;
  Label3.Top :=  180;
  Label3.Caption := 'Label3';

  // Edit1
  Edit1 := TEdit.Create(self);
  Edit1.Parent := Panel1;
  Edit1.Left := Label1.Width+60;
  Edit1.Top :=  Label1.Top;
  Edit1.Width := 170;
  Edit1.Height := 25;
  Edit1.OnChange := Edit1Change;

  // Edit2
  Edit2 := TEdit.Create(self);
  Edit2.Parent := Panel1;
  Edit2.Left := Edit1.Left;
  Edit2.Top :=  Label2.Top;
  Edit2.Width := Edit1.Width;
  Edit2.Height := Edit1.Height;
  Edit2.OnChange := Edit1Change;

  // Button1
  Button1 := TButton.Create(self);
  Button1.Parent := Panel1;
  Button1.Left := Label3.Left;
  Button1.Top :=  140;
  Button1.Height := 31;
  Button1.Width := 130;
  Button1.Caption := 'Click here';
  Button1.OnClick := Button1Click;
  Button1.Enabled := false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Panel1.Free;
  Button1.Free;
  Edit2.Free;
  Edit1.Free;
  Label3.Free;
  Label2.Free;
  Label1.Free;
end;

djelal
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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