هل يمكنني برمجة ازرار dbnavigatore في الدلفي ?
#3
(03-05-2019, 04:02 AM)ferrero كتب : كل زر تحكم من ازرار [size=small]DBNavigator ينفذ أمر:[/size]
First, Prior, Next, Last, Insert, Delete, Edit, Post, Cancel, Refresh
مثال الحفظ
DBGrid1.DataSource.DataSet.Post;
أو مباشرة استعمل Table
Table1.Post;

كود :
procedure TForm1.DBNavigator1Click(Sender: TObject; Button:
TNavigateBtn);
var
  BtnName: string;
begin
  case Button of
    nbFirst  : BtnName := 'nbFirst';
    nbPrior  : BtnName := 'nbPrior';
    nbNext   : BtnName := 'nbNext';
    nbLast   : BtnName := 'nbLast';
    nbInsert : BtnName := 'nbInsert';
    nbDelete : BtnName := 'nbDelete';
    nbEdit   : BtnName := 'nbEdit';
    nbPost   : BtnName := 'nbPost';
    nbCancel : BtnName := 'nbCancel';
    nbRefresh: BtnName := 'nbRefresh';
  end;
  MessageDlg(BtnName + ' button clicked.', mtInformation, [mbOK], 0);
end;
الرد


الردود في هذا الموضوع
RE: هل يمكنني برمجة ازرار dbnavigatore في الدلفي ? - بواسطة ramiparadox - 04-07-2019, 11:04 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم