بسم الله الرحمن الرحيم
والصلاة و السلام على اشرف الانبياء و المرسلين
اما بعد:
السلام عليكم اخواني كيف حالكم
اليوم اقدم لكم مجموعة من الأكواد المفيدة جداً للمبتدئين في الدالفي
+ الموضوع حصري 100 % الرجاء مراعاة ذلك
عند النقل الرجاء ذكر المصدر والكاتب
نبدأ على بركة الله
كود لساعة بتوقيت جهازك يجب استعمال : Label + Taimer
الطريقة نفرغ اسم Label ثو نضغط مرتين على Taimerونكتب الكود التالي
Label1.Caption:=formatdatetime('HHss AM/PM', Time);
و هذا الكود لإضهار علبة حوار بها رمز info يعني معلوماتية
نستعمل فيه : Button فقط نضغط عليها مرتين و نكت الكود
messagedlg('nabilsoft - startimes2- delphi',mtinformation,[mbok],0);
و هذا سهل جداً وهو للإنتقال من نافذة الى نافذة Form1 To Form2
form2.showmodal;
او هذا افضل
Form2.show;
كود لنسخ من Edit نحتاج الى Edit + Button فقط
نضغط على Button مرتين ثم نكتب الكود التالي
ملاحظة : يجب تحديد النص حتى تتمكن من النسخ
edit1.copytoclipboard
كود لإظهار رسالة إخبارية عن الضغط على الزر نحتاج الى Button فقط
نضغط على Button مرتين ثم نكتب الكود التالي
showmessage('nabilsoft - startimes2 - 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://www.startimes2.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);
الأكواد تعبت في احضارها و الموضوع تعبت في كتابته لذلك ارجوا ان تستفيدوا
منه حقا و ان ينال اعجاب طاقم عصابة الدالفي المحترم
والصلاة و السلام على اشرف الانبياء و المرسلين
اما بعد:
السلام عليكم اخواني كيف حالكم
اليوم اقدم لكم مجموعة من الأكواد المفيدة جداً للمبتدئين في الدالفي
+ الموضوع حصري 100 % الرجاء مراعاة ذلك
عند النقل الرجاء ذكر المصدر والكاتب
نبدأ على بركة الله
كود لساعة بتوقيت جهازك يجب استعمال : Label + Taimer
الطريقة نفرغ اسم Label ثو نضغط مرتين على Taimerونكتب الكود التالي
Label1.Caption:=formatdatetime('HHss AM/PM', Time);
و هذا الكود لإضهار علبة حوار بها رمز info يعني معلوماتية
نستعمل فيه : Button فقط نضغط عليها مرتين و نكت الكود
messagedlg('nabilsoft - startimes2- delphi',mtinformation,[mbok],0);
و هذا سهل جداً وهو للإنتقال من نافذة الى نافذة Form1 To Form2
form2.showmodal;
او هذا افضل
Form2.show;
كود لنسخ من Edit نحتاج الى Edit + Button فقط
نضغط على Button مرتين ثم نكتب الكود التالي
ملاحظة : يجب تحديد النص حتى تتمكن من النسخ
edit1.copytoclipboard
كود لإظهار رسالة إخبارية عن الضغط على الزر نحتاج الى Button فقط
نضغط على Button مرتين ثم نكتب الكود التالي
showmessage('nabilsoft - startimes2 - 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://www.startimes2.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);
الأكواد تعبت في احضارها و الموضوع تعبت في كتابته لذلك ارجوا ان تستفيدوا
منه حقا و ان ينال اعجاب طاقم عصابة الدالفي المحترم