مواضع ظريف عن الدلفى رائع

‏windows 8 · منذ /11-06-2012, 07:12 PM

مواضع , ظريف , عن , الدلفى , رائع

كيف تبحث عن تطابق جزئي بإستخدام تعليمة Locate :

مثلا يمكننا البحث حسب بداية كلمة ما , حيث يكفي كتابة الأحرف الأولى من الإسم لإظهار نتيجة السجل . مثال يكفي كتابة "عرو" لإظهار سجل الموظف "عروة"

plain text

if not ClientDataSet1.Locate('F_Name',edit3.Text,[loPartialKey]) then
showmessage('Filed Not Found');

ويتم ذلك بإستخدام الخيار [loPartialKey] الذي يحدد التطابق الجزئي للبحث

__________________________________________________ _____
كيفية إظهار مربع الإتصال بإنترنت
وكيفية إختبار إذا كنا متصلين بإنترنت أو لا

أولا أضف الوحدة WinInet مع الوحدات :
USES
WinInet;

ثم أكتب التابع التالي
function InternetConnected: Boolean;
CONST
INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_MODEM_BUSY = 8; // local system's modem is busy with a non-Internet connection.
VAR
dwConnectionTypes : DWORD;
BEGIN dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes,0);
END;

من أجل فتح مربع الإتصال بإنترنت أكتب الشفرة التالية :
procedure TForm1.Button1Click(Sender: TObject);
begin if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then
MessageDlg('لايوجد إتصال', mtError, [mbOk], 0);
end;

من أجل إختبار إذا كنا متصلين بإنترنت أو لا :
procedure TForm1.Button2Click(Sender: TObject);
begin if InternetConnected then
showmessage('متصل حاليا بإنترنت')
else begin showmessage('غير متصل بإنترنت');
InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle);
end;
end; __________________________________________________ _______________
حويل الصورة من BMP إلى JPG :

أضف الوحدة JPEG :

plain text

uses JPEG
ثم ضع هذا الكود في المكان المناسب

plain text

var jpg:TJPEGImage;
begin
jpg:=TJPEGImage.Create;
with jpg do begin
Assign(Image1.Picture.Bitmap);
SaveToFile('my jpeg.jpg');
end;
end;
__________________________________________________ __________
هذا الكود لجعل لون الفورم متدرج

plain text

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;
__________________________________________________ ______----
إخفاء و إظهار شريط المهام (Taskbar)

اضف هذا السطر إلي الـ private:

plain text

hTaskBar: HWND;

و في حدث انشاء النافذة (OnFormCreate) ضع الكود التالي:

plain text

hTaskBar := FindWindow('****************l_TrayWnd', nil);

لإخفاء شريط المهام:

plain text

ShowWindow(hTaskBar, SW_HIDE);

و لإظهار شريط المهام:

plain text

ShowWindow(hTaskBar, SW_SHOW);

السلام عليكم بواسطة برمجة الموت سلام

المصدر: development-point - للمزيد تابع : الأرشيف

l,hqu /vdt uk hg]gtn vhzu

المواضيع المتشابهه للموضوع: مواضع ظريف عن الدلفى رائع
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
حل مشكلة نسخ الدلفي المنتشره	aaqassam	الأرشيف	0	11-01-2012 03:20 AM
خطئ في الدلفي ارجوا المرور	aaqassam	الأرشيف	0	10-31-2012 05:23 PM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

مواضع ظريف عن الدلفى رائع

كيف تبحث عن تطابق جزئي بإستخدام تعليمة Locate : مثلا يمكننا البحث حسب بداية كلمة ما , حيث يكفي كتابة الأحرف الأولى من الإسم لإظهار نتيجة السجل . مثال يكفي