begin
ProgressBar1.Position := ProgressBar1.Position+1;
If ProgressBar1.Position=100 then
ShellExecute(Handle, 'open', 'C:\Windows\system32\notepad.exe', nil, nil, SW_SHOWNORMAL);
Mam taki oto progress bar, wszystko idzie pieknie az do momentu kiedy sie załaduje , nie otwiera 1 okna , tylko 100 ;/ .Mozecie jakos pomoc ?
moze cos pokombinowac z tym ?
begin
Timer1.Enabled:=False;
Close;
end;
Jeżeli ProgressBar się załaduje, wyłącz timer'a.
Patryk27 napisał(a):
Jeżeli ProgressBar się załaduje, wyłącz timer'a.
jezeli mogłbys mi jeszcze powiedziec w jaki sposob , szukałem tego ale takze nie moglem znaleŹĆ :D
To nie szukaj kodu tylko go napisz.
W zdarzeniu Timera onTimer zrób tak
begin
ProgressBar1.Position := ProgressBar1.Position+1;
If (ProgressBar1.Position=100) then
begin
Timer1.Enabled:=False;
ShellExecute(Handle, 'open', 'C:\Windows\system32\notepad.exe', nil, nil, SW_SHOWNORMAL);
end;
end;
To na pewno pomoże