السلام عليكم و رحمة الله و بركاته
لماذا يطلق على دلفي لفظة RAD - Rapid Application Development
الذي سنفعله اننا سنقوم بإنشاء مشروع جديد و نلاحظ فقط ما يفعله دلفي
قم بانشاء مجلد سمه كما شئت
File -> New -> Windows VCL Application - Delphi
أول ما يظهر هو فورم فارغ نقوم بحفظ المشروع داخل المجلد الذي أنشئته سابقا عن طريق
File -> Save All
أولا سيطلب منا حفظ الوحدة إحفظها باسم Unit1.pas.
ثانيا سيطلب منا حفظ المشروع إحفظه باسم Project1.dproj في النسخ الأقدم ستكون اللاحقة dpr بدلا من dproj.
تصفحه الملفات الموجودة داخل المجلد الملفات تختلف حسب نسخة دلفي المنصبة لديك الذي يهمنا هي الملفات الرئيسية التالية و التي لا يمكن عمل Compile للمشروع بدونها
- Project1.dpr
- Unit1.pas
- Unit1.dfm
Project1.dpr اختصارا لـ Delphi Project لمشاهدة محتويات الملف
Project -> View Source
PHP كود :
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Unit1.pas ملف الكود للفورم الذي يظهر أمامك pas إختصارا للـ Pascal
PHP كود :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
و أخيرا ملف Unit1.dfm إختصارا لـ Delphi Form الملف يحتوي على خصائص المكونات الموجودة على الفورم للوصول إليه يمكنك الضغظ على alt + F12 عندما تكون في الوضع Design و للعودة كذلك alt + F12 أو كما في الصورة
PHP كود :
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 202
ClientWidth = 447
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
PHP كود :
TForm1 = class(TForm)
PHP كود :
var
Form1: TForm1;
PHP كود :
{$R *.dfm}
نذهب الآن لملف dpr لنلاحظ ماذا يفعله دلفي و قد قلنا كيف نطع عليه
PHP كود :
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
السطر التالي
PHP كود :
Unit1 in 'Unit1.pas' {Form1};
PHP كود :
{$R *.res}
أهم سطر هو التالي
PHP كود :
Application.CreateForm(TForm1, Form1);
PHP كود :
var
Form1: TForm1;
begin
Form1 := TForm1.Create(nil);
try
finally
Form1.Free;
end;
end;
و السلام عليكم و رحمة الله و بركاته
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج