یکی از راه هایی که شما می توانید برنامه خود را always on top کنید این است که خاصیت FormSyte رو برابر با fsStayOnTop قرار دهید. اما این یک مشکل دارد آن هم اینکه زمانی که دکمه ShowDesktop زده بشه برنامه شما هم Minimize می شه. در صورتی که بخواهید در هر شرایطی برنامه شما بر روی صفحه بماند، می توانید از دستور زیر در رویداد OnCreate فرم خود استفاده کنید:
- SetWindowPos(Self.Handle, HWND_TOPMOST, ۰, ۰, ۰, ۰, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
(2 رای، میانگین: 4.50 از 5)
بارگذاری ...اگر شما نیاز دارید که نرم افزار شما در زمان اجرا در TaskBar نمایش داده نشود، می تونید دستورات زیر را در رویداد OnCreate فرم اصلی بنویسید:
- ShowWindow(Application.Handle, SW_HIDE) ;
- SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ;
- ShowWindow(Application.Handle, SW_SHOW) ;
(1 رای، میانگین: 4.00 از 5) بارگذاری ...احتمالا برای شما هم اتفاق افتاده است که بخواهید فایل هایی CSV را در برنامه خود بازخوانی کنید. همانطور که می دانید فایل های CSV فایلهایی هستند که در هر ردیف، ستون های آن با استفاده از یک کاراکتر خاص جدا شده اند. که البته بیشتر از کاما (,) و یا (;) و یا (Tab) استفاده می شود.
مثلا متنی مانند این را خواهید داشت: Field1; Field2; Field3; Field4
اگر تصور کنیم که شما بخواهید این ۴فیلد را بازخوانی کنید و در یک بانک اطلاعاتی ذخیره کنید، ابتدا باید این خط را تکه تکه کنید :دی
در ادامه مطلب متدی را نوشته ام که می توانید از آن به راحتی استفاده کنید
(هنوز امتیازی داده نشده) بارگذاری ...بحث خیلی از سایت ها وانجمن های مربوط به برنامه نویسی مخصوصا دلفی این روز ها به این موضوع اختصاص دارد که بالاخره کدام یک از گزینه های زیر؟
“Borland Delphi” یا “CodeGear Delphi” یا “Embarcadero Technologies Delphi”؟
این معمولا سوالی است که در ذهن هر دلفی کار قدیمی و جدیدی که یکی نسخه های ۲۰۰۹ یا ۲۰۱۰ را نصب کرده است پیش می آید.
جواب اینجاست :
سال ۱۹۹۵: شرکت بورلند نسخه جدیدی از پاسکال را ارائه داد و نام آن را دلفی گذاشت.
۱۱ سال بعد در تاریخ February 2006 بورلند نسخه دلفی ۱۱ را بسیار متفاوت ارائه کرد، نسخه که در آن Delphi, C++Builder, C#Builder, JBuilder, InterBase, JDataStore, nDataStore, Kylix یا یکجا جمع کرده بود. که البته آخرین نسخه بورلند دلفی هم بود.
بورلند دلفی تبدیل می شود به CodeGear Delphi:
در تاریخ November 2006 بورلند اعلام کرد که قصد دارد در جهت بالا بردن قدرت بهره وری ، توسعه دهندگان خود را به عنوان شرکت های فرعی بر موضوعات خاص متمرکز کند و نام آن را CodeGear گذاشت.
(1 رای، میانگین: 4.00 از 5) بارگذاری ...
برای پخش صدای های پیش فرض ویندوز یا همان System Sound ها می توان از PlaySound که یک API تابع است استفاده کرد. البته جهت استفاده از این تابع باید mmsystem را Use کرده باشید.
ویندوز اطلاعات مربوط به این صداها را در رجیستری خود نگهداری می کند. دقیقا در آدرس “AppEvents\Apps” از “HKEY_CURRENT_USER”.
جهت پخش کردن صدای… مثلا System Question می تونید به شکل زیر عمل کنید:
- PlaySound('SystemQuestion', 0, SND_ALIAS or SND_ASYNC)
البته توجه داشته باشید که حتما باید یونیت mmsystem را Use کرده باشید.
در ادامه مطلب، نمونه برنامه ای آماده کرده ام که می تونید از آن به عنوان یک مثال استفاده کنید.
(1 رای، میانگین: 4.00 از 5) بارگذاری ...جهت تغییر نوع صفحه کلید به فارسی و انگلیسی می تونید از متد زیر استفاده کنید
تغییر به فارسی:
- Loadkeyboardlayout('00000429 ', KLF_Activate);
تغییر به انگلیسی:
- Loadkeyboardlayout('0000000 ', KLF_Activate);
در صورتی که بخواید صفحه کلید رو به زبان های دیگری تغییر دهید، می تونید به سایت msdn مراجعه کنید.
(1 رای، میانگین: 5.00 از 5) بارگذاری ...می خوام یک متد را اینجا معرفی کنم که با استفاده از آن می توانید Computer Name ی که نرم افزار شما بر روی آن اجرا شده است را بدست آورید. گاها لازم می شه که این نام را داشته باشید. می توانید از متد زیر برای این کار استفاده کنید:
- function GetComputerName: string;
- var
- buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
- Size: Cardinal;
- begin
- Size := MAX_COMPUTERNAME_LENGTH + 1;
- Windows.GetComputerName(@buffer, Size);
- Result := StrPas(buffer);
- end;
موفق باشید
(1 رای، میانگین: 5.00 از 5) بارگذاری ...
همانطور که می دانید TListBox امکان نمایش لیست هایی با قابلیت Scroll را دارد. می خواهیم با استفاده از dragging and dropping امکانی برای کاربر ایجاد کنیم که بتواند ترتیب آیتم ها را تغییر دهد. یعنی یک آیتم را بگیرد و در جای دیگری رها کند.
برای این کار در ابتدا یک TListBox با نام ListBox1 بر روی فرم خود قرار می دهید. چندین آیتم هم به آن اضافه کنید.
سپس در قسمت Public و یا Private (قبل از implementation) یک متغیر از نوع TPoint تعریف کنید:
- StartingPoint : TPoint;
سپس در رویداد FormCreate فرم خود این دستور را بنویسید:
- procedure TForm1.FormCreate(Sender: TObject) ;
- begin
- ListBox1.DragMode := dmAutomatic;
- end;
سپس در رویداد DragDrop مربوط به ListBox1 دستور زیر را بنویسید:
(1 رای، میانگین: 5.00 از 5) بارگذاری ...با سلام.
بالاخره دیروز PhotoBlog خودم را شروع کردم. البته از روی علاقه عکس می گیرم، زیاد هم حرفه ای نیستم.
من کلا قندیل خیلی دوست دارم، واسه همین با عکس قندیل شروع کردم.
از این آدرس می توانید ببینید:
(هنوز امتیازی داده نشده) بارگذاری ...شاید برای شما هم پیش آمده باشد که به یک فایل دسترسی نداشته باشید. به هر دلیلی ممکن است که این مشکل پیش بیاید. مثلا یک فایل توسط نرم افزار دیگری در حال استفاده باشد و یا اینکه ReadOnly باشد. IsFileInUse یک متد است که برای بررسی وضعیت Use یک فایل به شما پیشنهاد می کنم. در صورتی که این متد True بازگرداند، فایل شما غیر قابل دسترسی خواهد بود و در صورتی که False برگرداند به این معنی است که شما به فایل مورد نظر کاملا دسترسی دارید. در ضمن، اگر فایل مورد نظر شما اصلا موجود نباشد، این متد Flase بر می گرداند. همچنین در صورتی که فایل مورد نظر شما ReadOnly باشد، این متد امکان تغییر Attribute آن را نیز دارد.
برای استفاده از این متد، باید StrUtils را Use کنید.
(2 رای، میانگین: 2.50 از 5) بارگذاری ...
