استفاده از messageBox به جای messageDlg در دلفی این امکان را میدهد که تعیین نمایید کدام دکمه فعال باشد . به عنوان مثال برای فعال بودن دکمه no از کد زیر استفاده میکنیم
if MessageBox(0, 'Message...', 'MessageBox caption', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TASKMODAL) = IDYES then
ایجاد عدد رندم 12 رقم ی در sql از کد زیر استفاده نمایید
convert(numeric(12,0),rand() * 999999999999)
بعد از دادن استایل در دلفی ، تمام کنترل ها به رنگ و تم انتخابی تغییر میکنند . برای اینکه یکسری از کنترل ها رو رنگ دلخواه بگذارید از تابع زیر استفاده کنید
procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string);vari : Integer;beginif Control=nil thenExit;Control.StyleElements:=[];if not Control.ClassNameIs(ClassToIgnore) thenif Control is TWinControl thenDisableVclStyles(TWinControl(Control).Controls[i], ClassToIgnore);for i := 0 to TWinControl(Control).ControlCount-1 doend;
DisableVclStyles(Self,'TButton');