طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه
طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه
Delphi
طريقة جمع عددين بدلفي
هذا تحسين للكود السابق.
عرض العناصر داخل بانل
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
مواضيع مماثلة
» طريقة جمع عددين بدلفي برمجيا
» طريقة انشاء قاعدة بيانات SQL برمجيا
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد
» ربط قاعدة بيانات أكسس بدلفي وإجراء بعض العمليات عليها كالإضافة والتعديل والحذف والبحث بدلفي
» طريقة انشاء قاعدة بيانات SQL برمجيا
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد
» ربط قاعدة بيانات أكسس بدلفي وإجراء بعض العمليات عليها كالإضافة والتعديل والحذف والبحث بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى