+ نوشته شده در دوشنبه 30 اردیبهشت1387ساعت 9:33 بعد از ظهر توسط محمد امین مسیبی
|
| تبليغات | X |
هیچ می دونستید در دلفی می توان بدون داشتن هیچ کامپوننت یا خاصی فرم ها را با افکت های مختلف نشون داد؟
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle, 300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
Function TransForm(wnd:Longint; Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
End;
و برای فعال شدن آن:
TransForm(form1.Handle ,150);
۱ عدد Edit
سورس:
unit U_Calc1;
{A simple calculator -
Do not change button names Btn0- Btn9 as the digits 0 -9 are extract from the
4th position of the name in a common routine}
.......................
برای مشاهده ی کامل روی "ادامه ی مطلب" کلیک کنید.
مشخصات:یک سورس کامل.بدون عکس(کپی از متن:مجاز)
(اگر علایم کمی جا به جا هست،درستش کنید)
برای مشاهده ی کامل روی "ادامه ی مطلب" کلیک کنید.
مشخصات:۵۰ خط+۱ تصویر(کپی از متن:مجاز)
function TCustomDBGrid.GetEditLimit: Integer;
begin
Result := 0;
if Assigned(SelectedField) and (SelectedField.DataType in [ftString, ftWideString, ftMemo]) then
Result := SelectedField.Size;
end;
function TCustomDBGrid.GetEditText(ACol, ARow: Longint): string;
begin
Result := '';
if FDatalink.Active then
with Columns[RawToDataColumn(ACol)] do
if Assigned(Field) then
Result := Field.AsString;
FEditText := Result;
end;
var
array[indexType1, ..., indexTypen] of baseType; برای دیدن ادامه،روی ادامه ی مطلب کلیک کنید procedure TForm1.Button1Click(Sender: TObject);
var
St: array[0..100] of Char;
begin
St:='C:\MyWallPaper.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @St, SPIF_SENDCHANGE);
end;