БОЛЬШОЙ FAQ ПО DELPHI



как вставить progressbar в statusbar

Событие по созданию окна опишите следующим образом:




procedure TForm1.FormCreate(Sender: TObject);
begin
with ProgressBar1 do begin
Parent := StatusBar1;
Position := 100;
Top := 2;
Left := 0;
Height := StatusBar1.Height - Top;
Width := StatusBar1.Panels[0].Width - Left;
end;
end;



<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ