Progress в статус бар формы

← →
Zoom (2005-04-19 20:09) [0]

А как вставить PB в SB в KOL? Что-то не получается, как в VCL.

← →
thaddy (2005-04-19 20:39) [1]

You can use the property statusctl as the owner of the PB! Easy!

← →
thaddy (2005-04-19 20:40) [2]

You can use the property statusctl as the owner of the PB! Easy!

← →
Zoom (2005-04-19 20:44) [3]

Yep. I tried it. How to exactly?

← →
thaddy (2005-04-19 22:16) [4]

procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
New(Result,Create);
with Result^ do
begin
Form:= NewForm(AParent,"KOLForm").SetSize(600,400).centeronparent.Tabulate;
Applet:=Form;
Form.Add2AutoFree(Result);
Form.simplestatustext:="";
PB:=NewProgressBar(Form.StatusCtl);
PB.resizeparent;
PB.Progress:=50;
end;
end;

← →
thaddy (2005-04-19 22:27) [5]

explanation: the control is only created when referenced, so you should use at least form.simplestatustext;
The resizeparent is not necessary.

(off_topic)
When I feel lazy and use Babelfish, my posts will arrive two times :) Better learning Russian properly :) Sorry to the webmaster
(end_off_topic)

Progress в статус бар формы Найти похожие ветки