İşleminiz yapılıyor Lütfen Bekleyiniz Mesajı

[sako]

Arkadaşalr mesela formda uzun sürecek bir işlem yapıyorum. Bu işlem süresince küçük bir pencerede "İşleminiz yapılıyor lütfen bekleyiniz" mesajı çıksın ve progressbar ile de yüzde olarak göstermek istiyorum. Bir component var mı bilmiyorum. Bunun için bir öneriniz var mıdır ?

[SimaWB]

JEDI'nin TJvProgressDialog'u var.

[omurolmez]

procedure TForm1.Button1OnClick(Sender: TEvent);
var
AForm2 :TForm2;
begin
AForm2 :=TForm2.Create(Self);
try
AForm2.Show;
while not Application.Terminated do begin
//Uzun süren işlem
AForm2.ProgressBar1.Position :=
end;
finally
AForm2.Free;
end;
end;

[sako]

Bi panel koydum forma. Formun diğer bütün öğelerini o çalışma anında visible:= false yaptımişimi gördü Tşkler yardımlar için...

[esistem]

Merhaba;

procedure TForm1.Button1OnClick(Sender: TEvent);
var
AForm2 :TForm2;
begin
AForm2 :=TForm2.Create(Self);
try
AForm2.Show;
while not Application.Terminated do begin
//Uzun süren işlem
AForm2.ProgressBar1.Position :=
end;
finally
AForm2.Free;
end;
end;

yukarıdaki kodda bir hata yokmu? app.terminate olmıcakki hiçbir zaman, kod sonsuz döngüye girmezmi?

[omurolmez]

Haklısınız, girer. Teşekkürler uyarınız için.

Oradaki uzun işlem ne ise, o işlem zaten while şartını değiştirecek. İşte o şarta or Application.Terminated da eklenebilir anlamında ele alabilirsiniz. Ayrıca, döngü içinde Application.ProcessMessages olmalıydı unutmuştum. Şimdi daha mantıklı gelmiş olmalı. Zira Böyle çalışınca, işlem devam ederken, programın ana penceresindeki Kapat butonunu tıklayabilirsiniz.