مجموعة من الأكواد المفيدة للمبتدئين في الدالفي

بسم الله الرحمان الرحيم

السلام عليكم 

اليوم اقدم لكم مجموعة من الأكواد المفيدة جداً للمبتدئين في الدالفي

 عند النقل الرجاء ذكر المصدر

• كود لساعة بتوقيت جهازك يجب استعمال : Label + Taimer ، الطريقة نفرغ اسم Label ثو نضغط مرتين على Taimerونكتب الكود التالي

Label1.Caption:=formatdatetime('HH:mm:ss AM/PM', Time);

• و هذا الكود لإظهار علبة حوار بها رمز info يعني معلوماتية ، نستعمل فيه : Button فقط نضغط عليها مرتين و نكت الكود

messagedlg('nabilsoft - e-te9ni- delphi',mtinformation,[mbok],0);

• و هذا سهل جداً وهو للإنتقال من نافذة الى نافذة Form1 To Form2

form2.showmodal;

او هذا افضل 

Form2.show;

•  كود لنسخ من Edit نحتاج الى  Edit + Button فقط ، نضغط على Button مرتين ثم نكتب الكود التالي 
• ملاحظة : يجب تحديد النص حتى تتمكن من النسخ

edit1.copytoclipboard 

• كود لإظهار رسالة إخبارية عن الضغط على الزر نحتاج الى Button فقط ، نضغط على Button مرتين ثم نكتب الكود التالي

showmessage('nabilsoft - e-te9ni - delphi ');

•  كود يظهر لك اثناء محاولتك اغلاق البرنامج حيث يسألك  هل تريد اغلاق البرنامج حقاً او لا الكود مرتب انسخ و الصق فقط

if MessageDlg('  Voulez-vous vraiment fermer le programme    de nabilsoft  ?',mtConfirmation

,[mbyes,mbno],0)= mryes then close;

• الأن كود لإدراج رابط انترنت او موقع ما الى برنامجك الخاص مع  التنبيه الى امر مهم جدا يجب اضافة SellApi الى Uses ( القائمة الجانبية )

     ShellExecute (0,'Open',PChar('http://e-te9ni.blogspot.com'),'','',SW_SHOWNORMAL);

• لإظهار الـ Form2 بطريقة رائعة جدا يجب اضافة Button الضغط عليه مرتين و كتابة الكود التالي + اضافة  Form جديد ( الحركة المفضلة عندي )

Animatewindow(form2.Handle, 500, aw_center);

Form2.show;

• كود جميل جدا لجعل الـ Form هزاز مثل MSN و الـ Yahoo ،
•  تركيبه اضغط مرتين على Form1 تظهر لك Unit1 ، الصقه في مكانه المخصص ( اذا لم تضعه في المكان المخصص لن يشتغل )

var

  Form1: TForm1;

implementation

procedure hzaz (no:integer);

var

 i,ix:Integer;

 begin

 ix:=Form1.Left;

   i:=0;

   repeat

     if Form1.Left=ix-4 then begin

         i:=i+1;

         repeat

           Form1.Left:=Form1.Left+1;

           Form1.Top:=Form1.Top-1;

         until Form1.Left=ix

       end

     else

       repeat

         Form1.Left:=Form1.Left-1;

         Form1.Top:=Form1.Top+1;

       until Form1.Left=ix-4;

   until i=no;

 end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 hzaz(20);

end;

• كود لتغيير اسم الزر إبدأ سهل جداً

procedure TForm1.Button1Click(Sender: TObject);

var Handle1,Handle2:hwnd;

begin

Handle1:=FindWindow('Shell_TrayWnd',nil); //get the handle of the taskbar

Handle2:=FindWindowEx(Handle1,0,'Button',nil); //get the handle of the start button from the taskbar

SetWindowText(Handle2,PAnsiChar(Edit1.Text)); //set the text

SendMessage(Handle2,Messages.WM_MOUSEMOVE,0,0); //used to refresh the caption of the start button

end;

• كود جميل جدا يجعل الـ Form متدرج في اللون من الأسود الى الأحمر

procedure TForm1.Button1Click(Sender: TObject);

var

Row,Ht: word;

begin

Ht := (ClientHeight + 255) div 256;

For Row := 0 to 255 Do

With Canvas Do Begin

Brush.Color := Rgb(Row,0,0);

FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht));

end;

end;

end.

• كود لجعل برنامج فوق جميع البرامج ( له الأفضلية على كل البرامج)

Application.NormalizeTopMosts;

SetWindowPos(form1.Handle, HWND_TOPMOST, 0,0,0,0,

SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);

 ارجوا ان تستفيدوا