Topic: How To Insert Tstatusbar For Show Time And Keyboard lock

how to edit script insert status in below form and edit caption,image for show value

help me please

example01
http://www.drbob42.com/gif/hood-11b.gif

example02
http://4.bp.blogspot.com/-kHYFPrK16zI/UVgSeFDsitI/AAAAAAAAArw/5OK3vUqBJe4/s320/GambarDiStatusBar.jpg

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: How To Insert Tstatusbar For Show Time And Keyboard lock

Example, how to create StatusBar

var
    StatusBar: TStatusBar;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    StatusBar := TStatusBar.Create(Form1);
    StatusBar.Parent := Form1;
    StatusBar.Panels.Add; //0
    StatusBar.Panels.Add; //1
    StatusBar.Panels.Add; //2

    StatusBar.Panels.Items[0].Width := 150;
    StatusBar.Panels.Items[0].Text := 'Hello';

    StatusBar.Panels.Items[1].Width := 100;
    StatusBar.Panels.Items[1].Text := 'Value';

    StatusBar.Panels.Items[2].Width := 100;
    StatusBar.Panels.Items[2].Text := 'Value';
end;

Icons for statusbar is not supported.


Project:

Post's attachments

Attachment icon StatusBar.zip 2.73 kb, 485 downloads since 2017-07-14 

Dmitry.