close
تبلیغات در اینترنت
توی دلفی یک پیانو درست کنید
loading...
سرویس سایت سایت رزبلاگ بزرگترین سرویس ارائه خدمات سایت نویسی حرفه ای در ایران

فیلم و کتاب دات آی آر

var  Lab: Array[1..65] of TLabel;. .. . . . .procedure CreatePiano;var  k: Byte;begin  for k:= 1 to 65 do Lab[k].Color:= Random(16777216) ;end;procedure TForm1.BarClick(Sender: TObject) ;begin  Application.ProcessMessages;  with Sender as TLabel do     Windows.Beep(440 + (Color div 3500), 100) ;end;procedure TForm1.FormCreate(Sender: TObject); var  k: Byte;begin  Randomize;  for k:= 1 to 65 do  begin    Lab[k]:=…


var
  Lab: Array[1..65] of TLabel;
.

.

.

.

.

.

.procedure CreatePiano;
var
  k: Byte;
begin
  for k:= 1 to 65 do Lab[k].Color:= Random(16777216) ;
end;

procedure TForm1.BarClick(Sender: TObject) ;
begin
  Application.ProcessMessages;

  with Sender as TLabel do
     Windows.Beep(440 + (Color div 3500), 100) ;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var
  k: Byte;
begin
  Randomize;
  for k:= 1 to 65 do
  begin
    Lab[k]:= TLabel.Create(Self) ;
    Lab[k].Parent := Self;
    Lab[k].Left := 8 + 11*(k-1) ;
    Lab[k].Color:= Random(16777216) ;
    Lab[k].OnMouseEnter:= BarClick;
  end;
end;

درباره :
برچسب ها : توی دلفی یک پیانو درست کنید , MultiSelect کردن DBgrid , نمایش فضای استفاده شده و بلا استفاده هارد , در دلفی , انتخاب رکورد تصادفی از DBGrid , دلفی , پایگاه داده , بانک اطلاعاتی , اتصال , آموزش , سورس , تصادفی , سورس دلفی , کامپوننت دلفی , پیانو در دلفی , پروژه دلفی , پروژه , هارد , فضای هارد , سورس درخواستی , درخواست سورس ,
بازدید : 811 تاریخ : زمان : نویسنده : بهرام محمدپور نظرات ()
مطالب مرتبط
  • خالی کردن همه Edit ها با هم خالی کردن همه Edit ها با هم
  • جستجو از پایگاه داده SQL با استفاده یک Edit معمولی جستجو از پایگاه داده SQL با استفاده یک Edit معمولی
  • حذف کاربر از adatabase حذف کاربر از adatabase
  • اضافه کردن شماره سطر در خود DBGrid اضافه کردن شماره سطر در خود DBGrid
  • چگونه میتوان یک عکس Jpeg را در یک فیلد Blob(حباب) ذخیره کرد؟ چگونه میتوان یک عکس Jpeg را در یک فیلد Blob(حباب) ذخیره کرد؟
  • قرار دادن رنگ خاص در هر سلول DBGrid قرار دادن رنگ خاص در هر سلول DBGrid
  • قرار دادن رنگ پس زمینه های مختلف از DBGrid برای ردیفهای زوج و فرد قرار دادن رنگ پس زمینه های مختلف از DBGrid برای ردیفهای زوج و فرد
  • نمایش تصاویر در DBGrid نمایش تصاویر در DBGrid
  • حذف از پایگاه داده در دلفی حذف از پایگاه داده در دلفی
  • چگونه میتوان کلید Scroll ماوس را برای DBGrid تعریف کرد؟ چگونه میتوان کلید Scroll ماوس را برای DBGrid تعریف کرد؟
  • انتخاب رکورد تصادفی از DBGrid انتخاب رکورد تصادفی از DBGrid
  • به چرخش در آوردن متن به چرخش در آوردن متن
  • یک ساعت فوق العاده یک ساعت فوق العاده
  • تعدادی از مبدل ها تعدادی از مبدل ها
  • رنگی کردن سطر های یک DBGrid را به صورت یکی در میان رنگی کردن سطر های یک DBGrid را به صورت یکی در میان
  • MultiSelect کردن DBgrid MultiSelect کردن DBgrid
  • انتخاب رکورد تصادفی از DBGrid انتخاب رکورد تصادفی از DBGrid
  • کد جستجوی بین دو تاریخ در دلفی کد جستجوی بین دو تاریخ در دلفی
  • فعال و غیر فعال سازی Beep سیستم فعال و غیر فعال سازی Beep سیستم
  • پخش صدای سیستم در دلفی پخش صدای سیستم در دلفی
  • بررسی باز بودن CD-ROM در دلفی بررسی باز بودن CD-ROM در دلفی
  • غیر فعال کردن Firewal XP در دلفی غیر فعال کردن Firewal XP در دلفی
  • مشخص کردن فرمت درایو در دلفی مشخص کردن فرمت درایو در دلفی
  • ایجاد یک جورچین از تصویر صفحه نمایش در دلفی ایجاد یک جورچین از تصویر صفحه نمایش در دلفی
  • قرار دادن یک چند ضلعی روی فرم قرار دادن یک چند ضلعی روی فرم
  • ارسال نظر برای این مطلب

    نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
    تبلیغات
    Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز

    آمار سایت
  • کل مطالب : 4311
  • کل نظرات : 17
  • افراد آنلاین : 6
  • تعداد اعضا : 2920
  • آی پی امروز : 0
  • آی پی دیروز : 282
  • بازدید امروز : 1,071
  • باردید دیروز : 0
  • گوگل امروز : 23
  • گوگل دیروز : 0
  • بازدید هفته : 1,071
  • بازدید ماه : 1,071
  • بازدید سال : 1,071
  • بازدید کلی : 5,572,594
  • مطالب
    کدهای اختصاصی