ADOConAfterConnect de label captionu değiştirmek

[conari]

Arkadaşlar Selam

Kod: Tümünü seç

ADOConAfterConnect(Sender: TObject);
begin
Label2.Caption:='Bağlanıldı.';
Label2.Font.Color:= clyellow;
end;

Kod: Tümünü seç

ADOConDisconnect(Connection: TADOConnection;
  var EventStatus: TEventStatus);
begin
Label2.Caption:='Aktarım Tamamlandı, Bağlantı Kesildi!!.';
Label2.Font.Color:= clRed;
end;

Normalde bu işlemi yapıyor fakat ben Queryi excel e gönderirken
bu "Bağlandı"yı ve sonunda "Bağlantı kesildi" yazısının değiştiğini göremiyorum.
Bu gibi durumlarda programın diğer işlemlerini yapabilmesi için ne kullanıyorduk.

[aslangeri]

s.a.
application.processmessages işinizi görebilir.
kolay gelsin.

[conari]

Bir türlü aklıma gelmemişti.
Eyvallah..