في هذا الدرس السابع الخاص بإنشاء واجهة عن البرنامج و التي من خلالها سنتعلم بعض الأمور الخاصة بالبرمجة فيما يخص بعض المكونات الجديدة التي اضفناها اضافة الى استعمال خاصية 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.
طبعا الدرس مصور في فيديو جديد يمكنكم متابعته على قناتنا في اليوتيوب
اليكم الدرس الخاص بالواجهتين
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
تقبلو تحياتنا و السلام عليكم و رحمة الله تعالى و بركاته
قد يعجبك ايضا