الاضافه الوصف الى Navigator

بسم الله الرحمن الرحيم

اخواني

يمكنك ان تضيف على "النافيقيتر" Navigator الوصف الذي تريده من خلال

اولاً :-

اضافه كلاس ويوزس

uses Buttons;
  type
  TDBNewNavigator = class ( TDBNavigator );

ثانياً :-

و من ثم اضف هذا الكود

procedure TForm1.FormCreate(Sender: TObject); 
var 
  B: TNavigateBtn; 
begin 
  for B := Low ( TNavigateBtn ) to High ( TNavigateBtn ) do 
    with TDBNewNavigator ( DBNavigator1 ).Buttons [ B ] do 
    begin 
      Case Index of 
        nbFirst   : Caption := 'اول'; 
        nbPrior   : Caption := 'سابق'; 
        nbNext    : Caption := 'تالي'; 
        nbLast    : Caption := 'آخر'; 
        nbInsert  : Caption := 'جديد'; 
        nbDelete  : Caption := 'مسح'; 
        nbEdit    : Caption := 'تعديل'; 
        nbPost    : Caption := 'ادخال'; 
        nbCancel  : Caption := 'تراجع'; 
        nbRefresh : Caption := 'تنشيط'; 
      End; 
      Layout := blGlyphTop; 
      Hint := Caption; 
      ShowHint := True; 
    end; 
end;

طبعاً يمكنك التغيير هنا مثلما تريد

على امل ان يكون قد اعجبكم .