FCommonDialog:=TFCommonDialog.Create(DM);
with FCommonDialog do
Begin
[b]Showmodal;[/b]
Animate1.Active:=True;
cxLabel1.Caption:='Please wait ...';
ProgressBar1.Position:=0;
End;
.........................
.........................
with FCommonDialog do
Begin
Animate1.Active:=False;
cxLabel1.Caption:=Done...';
ProgressBar1.Position:=100;
Close;
End;
Merhaba;
application.processmessages komutunun görevi kilitlenmeyi engellemek daha doğru bir tabir ile çok fazla kayıt ile bir döngü oluşturup bunuda dbgridde gösteriysanız döngüde application.processmessages komutunu kullanmazsanız dbgrid belli zamandan sonra veya ekrana müdahaleden sonra verileri listeleyemez taki döngü biterse sonucu gösterir.
bu komut çok işlevsel.
Saygılarımla
Kolay gelsin.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
