8 (1311)

106 Aplikacje w Delphi. Przykłady

Panels.Add;

Panels.Add;

Panels[0].Width:=90: //panel pierwszy ma szer. 90 pikseli PanelsCl].Width:=55:

Panels[2].Width:=70;

Panels[Panels.Count-1].Alignment:=taRightJusti fy;//wyr. do prawej end; end;

Przykład 8.10.

Wyświetl na ostatnim panelu bieżący czas systemowy — rysunek 8.5.

Rozwiązanie

Wstaw komponent TT i mer z zakładki System i komponent TStatusBar, taki jak w przykładzie 8.9. Treść procedury obsługi przerwania od Timera przedstawiono poniżej.

Rysunek 8.5.

Edytor TMemo i pasek stanu TStatusBar

procedurę TForml.TimerlTimer(Sender: TObject); begin

with StatusBarl do

Panels[Panels.Count-1].Text:=TimeToStr(Time)+' end;

Przykład 8.11.

Wyświetl na panelu TStatusBar współrzędne położenia kursora w edytorze TMemo — rysunek 8.5.

Rozwiązanie

Dopisz w części private klasy TForml nagłówek procedury:

procedurę pozycja_kursora;

Następnie w części implementation modułu wpisz treść tej procedury (razem z nagłówkiem):

procedurę TForml.pozycja_kursora:

var kursor:TPoint;

begin

kursor:=Memol.CaretPos: //funkcja CaretPos zwraca współrzędne //położenia kursora