تبلیغات شما تبلیغات شما

آمار سایت

    آمار مطالب
    کل مطالب : 3993
    آمار کاربران
    افراد آنلاین : 9

    کاربران آنلاین

    آمار بازدید
    بازدید امروز : 16,822
    باردید دیروز : 2,997
    گوگل امروز : 14
    گوگل دیروز : 29
    بازدید هفته : 16,822
    بازدید ماه : 70,259
    بازدید سال : 829,550
    بازدید کلی : 6,401,073

آخرین فروش های موفق

procedure TForm1.Button1Click(Sender: TObject);
var
  X: Word;
  TempBookmark: TBookMark;
begin
  with DBGrid1.DataSource.DataSet do
  begin
    DisableControls;
    with DBGrid1.SelectedRows do
      if Count<>0 then
      begin
        TempBookmark:=GetBookmark;
        for X:=0 to Count-1 do
        begin
          if IndexOf(Items[X])>-1 then
          begin
            Bookmark:=Items[X];
            ShowMessage(Fields[1].AsString);
          end;
        end;
      end;
    GotoBookmark(TempBookmark);
    FreeBookmark(TempBookmark);
    EnableControls;
  end;
end;

برچسب ها

مطالب پیشنهادی ما

دیدگاه های شما

ارسال نظر

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

تبلیغات شما تبلیغات شما

دسترسی سریع

کدهای اختصاصی