مطالب حرفه ای   

      مطالب متوسط 

            مطالب ساده    

برای انجام این کار در رویداد OnCreate  فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :

  AnimateWindow(Form1.Handle, 300, AW_Center);

البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه

               ۱ عدد 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}

.......................

     برای مشاهده ی کامل روی "ادامه ی مطلب" کلیک کنید.

مشخصات:یک سورس کامل.بدون عکس(کپی از متن:مجاز)

(اگر علایم کمی جا به جا هست،درستش کنید)

                    برای مشاهده ی کامل روی "ادامه ی مطلب" کلیک کنید.

مشخصات:۵۰ خط+۱ تصویر(کپی از متن:مجاز)

  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;