Bir çok programda pencerelerin en altinda ki durumu
gösteren bazi bilgiler bulunduran kontrol çubugudur.
Companent Palet / Win32 / Status Bar 
butonuna tiklanir. |
PROPERTIES |
1)Statusbar.panels.add : Kontrole yeni paneller
ekler. Eklenen bu panellere Panels(index) özelligi
ile ulasilir.
 |
| 2)Statusbar.panels.clear : Status bar kontrolündeki
tüm panelleri siler. |
3)Statusbar.panels.Items[Index].style :
Statusbar.oanels.Items[Index].style:= pstext Bu özellik
pstext verilirse index nolu panelin içerisi yazi, psownerdraw
verilirse resim olabilir.
ÖRNEK: Statusbar.oanels.Items[Index].style
:=pstext; |
4)Statusbar.panels.Items[Index].aligment:
Index
paneli verilen panelin hizalamasini yapar.
| TaleftJustfy |
Sola Dayali |
| TareightJustfy |
Saga Dayali |
| TaCenter |
Ortalanmis |
ÖRNEK: Statusbar1.panels.items[1].aligment:=
TareightJustfy ; |
| 5)Statusbar.panels.Items[Index].bevel :
Panellerin
görünüm efektlerini saglar. |
| pbnone |
 |
| pblowered |
 |
| pbraised |
 |
ÖRNEK: Statusbar.oanels.Items[2].bevel
:= pbraised; |
ÖRNEK PROGRAM :
 |
KODU :
procedure TForm1.FormShow(Sender: TObject);
begin
StatusBar1.Panels.Add; //PANEL EKLE
StatusBar1.Panels[0].Bevel:=pbNone; //panel
biçimini ayarla
StatusBar1.Panels[0].Text:=' delphikursu.com
'; //panele yazi yaz
StatusBar1.Panels[0].Width:=200; // panelin
uzunlugunu ayarla
//-------------------------------------
StatusBar1.Panels.Add; //PANEL EKLE
StatusBar1.Panels[1].Bevel:=pbLowered;
//panel biçimini ayarla
StatusBar1.Panels[1].Text:=' delphikursu.com';
//panele yazi yaz
StatusBar1.Panels[1].Width:=200; // panelin
uzunlugunu ayarla
//--------------------------------------------
StatusBar1.Panels.Add; //PANEL EKLE
StatusBar1.Panels[2].Bevel:=pbRaised;
//panel biçimini ayarla
StatusBar1.Panels[2].Text:=' yardim@delphikursu.com
'; //panele yazi yaz
StatusBar1.Panels[2].Width:=200; // panelin
uzunlugunu ayarla
end; |
|
| |
|
