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

آمار سایت

    آمار مطالب
    کل مطالب : 4089
    آمار کاربران
    افراد آنلاین : 7

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

    آمار بازدید
    بازدید امروز : 1,400
    باردید دیروز : 2,390
    گوگل امروز : 1
    گوگل دیروز : 6
    بازدید هفته : 6,029
    بازدید ماه : 90,228
    بازدید سال : 298,345
    بازدید کلی : 6,745,373

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

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
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی

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

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