[Lazarus] Placing a TProgressBar into a TStatusBar

cobalt747 at mail.ru cobalt747 at mail.ru
Fri Mar 13 20:44:00 CET 2009


Здравствуйте, Andrea.

Try this:

procedure TForm1.FormCreate(Sender: TObject);
var
   ProgressBar1: TProgressBar;
begin
     ProgressBar1:= TProgressBar.Create(StatusBar1);
     with ProgressBar1 do
     begin
       Parent := StatusBar1;
       Left := 50;
       Visible:= true;
       Height:=15;
       Width:=50;
       Max:=100;
       Position:=20;
     end;
end;

Вы писали 10 марта 2009 г., 19:01:27:

> Dear all,
> anyone can suggest me a way in order to place a TProgressBar into a 
> TStatusBar?
> I found some tutorials but they are just for Delphi and Win.
> Thanks,
> Andrea
-- 
С уважением,
 Cobalt747                          mailto:cobalt747 at mail.ru





More information about the Lazarus mailing list