Title: Display DBNavigator's Buttons' caption
Question: My customers complain that they feel puzzled about those buttons'
functions, and they hate to wait for "hint"s. :(
Answer:
{Define a new class as a desendant of TDBNavigator, and assign captions to TDBNavigator's buttons}
type
TZxgDBNavigator = class(TDBNavigator)
private
//...
public
Constructor Create(Aowner:Tcomponent); override;
//...
end;
const
DefaultCaptions: array[TNavigateBtn]of string=('FIRST', 'PRIOR', 'NEXT',
'LAST', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH');
// You Can Define DefaultCaptions in your native language, e.g.
// Chinese Version is --
{
DefaultCaptions: array[TNavigateBtn]of string=('?','?','',
'?¦Â','','?','?','','?','?');
}
//...
constructor TZxgDBNavigator.Create(Aowner:Tcomponent);
var
lp:TNavigateBtn;
begin
inherited create(Aowner);
for lp:=low (TNavigateBtn)to high(TNavigateBtn)do
buttons[lp].Caption:=DefaultCaptions[lp];
end;
//...