استفاده از messageBox به جای messageDlg در دلفی

استفاده از messageBox به جای messageDlg در دلفی این امکان را میدهد که تعیین نمایید کدام دکمه فعال باشد . به عنوان مثال برای فعال بودن دکمه no از کد زیر استفاده میکنیم

if MessageBox(0, 'Message...', 'MessageBox caption', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TASKMODAL) = IDYES then

ایجاد عدد رندم در sql

ایجاد عدد رندم  12 رقم ی در sql  از کد زیر استفاده نمایید

convert(numeric(12,0),rand() * 999999999999) 

عدم تغییر رنگ یک کنترل خاص بعد از دادن استایل دلفی

  بعد از دادن استایل در دلفی ، تمام کنترل ها به رنگ و تم انتخابی تغییر میکنند  . برای اینکه یکسری از کنترل ها رو رنگ دلخواه بگذارید از تابع زیر استفاده کنید

procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string);
var
  i : Integer;
begin
  if Control=nil then
    Exit;
   Control.StyleElements:=[];
  if not Control.ClassNameIs(ClassToIgnore) then
  if Control is TWinControl then
      DisableVclStyles(TWinControl(Control).Controls[i], ClassToIgnore);
    for i := 0 to TWinControl(Control).ControlCount-1 do
end;

برای فراخوانی نیز از کد زیر استفاده نمایید

DisableVclStyles(Self,'TButton');