Delphi tilida

begin 
end; 
0'zingiz ham { TForml} satrdan so‘ng shu shablonni kiritishingiz 
mumkin: 
Implementation 

199 

{$R *.dfm} 
{ TForml } 
procedure TForml.ShowHint(Sender: TObject); 
begin 
end; 
Protsedura ichiga quyidagi kodni yozing: 
Procedure TForml.ShowHint(Sender: TObject); 
begin 
StatusBarl.SimpleText := Application.Hint; 
end; 
Endi OnShow hodisasi uchun qayta ishlovchi protsedura kiritamiz: 
Procedure TForml.FormShow(Sender: TObject); 
begin 
Application.OnHint := ShowHint; 
end; 
Bu vazifani soddaroq holda quyidagicha bajarish mumkin: 

Uskunalar paneli (TToolBar i TControlBar) 

;.aPrlphi Rnnlf - TnARA 11-3- Mirrmnft Wnrd 

2i & Q £ S IA 


® <1 * 

firr« Nwy Pfman 

Bunday panellar TToolBar va TcontrolBar komponentalari 

yordamida yaratiladi. 
ControlBar 

ToolBar 
ControlBar komponentasining qulayligi shundaki, bu kompo- 
nentaga uskunalar paneli joylashtirilsa, panelni komponenta ichiga 
siljitishi mumkin boladi. 
Ikkala komponenta uchun asosiy xossalarguruhi EdgeBordersbolib. 
bu guruhdagi ebTop xossasi qiymatiga false o‘rnatilsa komponenta 
chetidagi hoshiya yo‘qoladi. 

otiMonMil __|