TÉMA:

Szia!
Egy sima homokóra nem lenne elég?
pl
sqlquery1.open;
Screen.Cursor:=crHourGlass;
if sqlquery1.recordcount=0 then hibaüzenet.
Nem teszteltem, csak egy ötlet.

Sziasztok .Segítség kellene...
Készítek egy egy alkalmazást amiben SQL lekérdezések vannak, és amíg a lekérdezés folyamatban van addig szerettem volna valami animációval jelezni,hogy a lekérdezés folyamatban van.
először próbálkoztam timer komponensel,de amíg folyik a lekérdezés addig álla timer..ezután próbálkoztam a több szállal

PROCEDURE TMYTHREAD.DOSTH;
VAR S:STRING;
BEGIN
FORM1.Button1.Caption:=FLOATTOSTR(A);

end;

PROCEDURE TMYTHREAD.EXECUTE;
BEGIN
repeat
a:=A+0.0001;
Synchronize(@DOSTH);
until TERMINATED;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
T:=TMYTHREAD.Create(TRUE);
T.FreeOnTerminate:=TRUE;
T.Resume;
folyamatkijelzés......
end;

ez idáig jól működik,csak nekem nincs ismétlőődő ciklus, anélkül nem tudom hogyan működik a synchronize ...
Tud valaki megoldást??