Mega Code Archive
Captions in the DBNavigator
<![CDATA[
Title: Captions in the DBNavigator
Question: How to place Captions in the DBNavigator?
Answer:
1) Insert in your form a DBNavigator object.
2) Then, you need to declare a class:
type
TDBNewNavigator = class ( TDBNavigator );
3) Finally, you use this code to place Caption at each button in the DBNavigator.
...
uses Buttons;
...
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 := 'First';
nbPrior : Caption := 'Prior';
nbNext : Caption := 'Next';
nbLast : Caption := 'last';
nbInsert : Caption := 'New';
nbDelete : Caption := 'Delete';
nbEdit : Caption := 'Edit';
nbPost : Caption := 'Post';
nbCancel : Caption := 'Cancel';
nbRefresh : Caption := 'Refresh';
End;
Layout := blGlyphTop;
Hint := Caption;
ShowHint := True;
end;
end;
]]>