تقديم طريقة ميريز MERISE

في هذا الدرس السابع الخاص بإنشاء واجهة عن البرنامج و التي من خلالها سنتعلم بعض الأمور الخاصة بالبرمجة فيما يخص بعض المكونات الجديدة التي اضفناها اضافة الى استعمال خاصية ShellApi المتعلقة بوضع روابط يمكن ان نستعملها في الدلفي اضافة الى شئ جديد نتعلمه في الدلفي و هو استعمال مكون HDDInfo  للحصول على الرقم التسلسلي الحقيقي للقرص الصلب هذا عن الواجهة الأولى

أما الواجهة الثانية و هي بداية استعمال مكونات القوائم الجانبية و التي ستكون كثيرة في البرنامج  اضافة اى اضهار و اخفاء بعض العناصر في الواجهة الرئيسية للبرنامج , كما اننا قمنا باستعمل نفس الخاصيات تقريبا المستعملة في الدروس السابقة 

كود سوس عن البرنامج

unit Apropos;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, HDDInfo, ImgList, sppngimagelist, DynamicSkinForm, SkinCtrls,

  StdCtrls, SkinBoxCtrls,shellapi, pngimage, ExtCtrls, SkinExCtrls;

type

  TForm5 = class(TForm)

    spSkinPanel1: TspSkinPanel;

    Label43: TLabel;

    spSkinDivider1: TspSkinDivider;

    Image1: TImage;

    Label3: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    spSkinDivider3: TspSkinDivider;

    spSkinDivider2: TspSkinDivider;

    Label5: TLabel;

    spSkinSpeedButton1: TspSkinSpeedButton;

    Label6: TLabel;

    Label7: TLabel;

    spSkinMemo1: TspSkinMemo;

    spSkinScrollBar1: TspSkinScrollBar;

    spDynamicSkinForm1: TspDynamicSkinForm;

    spPngImageList1: TspPngImageList;

    HDDInfo1: THDDInfo;

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

    procedure FormCreate(Sender: TObject);

    procedure Label6Click(Sender: TObject);

    procedure Label6MouseEnter(Sender: TObject);

    procedure Label6MouseLeave(Sender: TObject);

    procedure spSkinSpeedButton1Click(Sender: TObject);

  private

    { Déclarations privées }

     procedure CreateParams(var params: TCreateParams); override;

  public

    { Déclarations publiques }

  end;

var

  Form5: TForm5;

implementation

uses Acceuil,principal,BDD;

{$R *.dfm}

     const

  clOrange = TColor($0000048DF);

    procedure TForm5.CreateParams(var params: TCreateParams);

begin

  inherited CreateParams(params);

  params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;

end;

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

begin

         form4.Enabled := true;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

  Label43.Font.Color := clOrange;

 HDDInfo1.DeviceName := 'PhysicalDrive0';

 Label7.Caption := HDDInfo1.Serial;

 Label7.Font.Color := clOrange;

end;

procedure TForm5.Label6Click(Sender: TObject);

begin

    ShellExecute(Handle, 'open', 'http://www.minasoft48.com/',nil,nil, SW_SHOWNORMAL) ;

end;

procedure TForm5.Label6MouseEnter(Sender: TObject);

begin

    Label6.Font.Color := clOrange;

end;

procedure TForm5.Label6MouseLeave(Sender: TObject);

begin

      Label6.Font.Color := clBlack;

end;

procedure TForm5.spSkinSpeedButton1Click(Sender: TObject);

begin

     form5.Close;

form4.Enabled := true;

end;

end.

طبعا الدرس مصور في فيديو جديد يمكنكم متابعته على قناتنا في اليوتيوب 

اليكم الدرس الخاص بالواجهتين 

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

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

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

تعديل المقال