Nqkoy moje li da mi kaje kak moga da nalaram edin cikul da chaka natiskaneto na button i da produlji rabotata si t.e.

while not Query1.Eof do
begin

S:= Query1.Fields[0].asstring;
...{eto tuka da mi se izwika buttona }
Query1.Nex;

end;

Blagodarq predwaritelno;

ми вмъкни там диалогов прозорец, и след като натиснеш бутона на диалога, цикъла ще продължи....
другия вариант е с глобален флаг който да е лъжа, и да имаш цикъл който да чака да стане истина, а като натиснеш бутона, той да стане такъв....

Ako iska6 da izpolzwa6 buton ot formata a ne dialogow prozorec, deklarira6 edna private promenliva na formata ot tip Boolean (ili globalna promenliva). Sled towa dobawia6 w OnClick na Butona:

PROMENLIVA := True;



a w cikala ne6to takowa:

while not Query1.Eof do
begin

S:= Query1.Fields[0].asstring;

PROMENLIVA := False;
while not (PROMENLIVA = True) do Application.ProcessMessages;

Query1.Nex;

end;



Towa e.

zdrasti
samo da poiasnia 4e Application.ProcessMessages e mnogo vajno v slu4aia - tova predizvikva obrabotkata na messages kum prilojenieto i izpulnenieto im vseki put kogato mine prez tialoto na cikala

Da obache no togawa shte se izpolzwa 100% ot procesrnoto wreme nqma li nqkoq API function za tazi rabota (az otkrih edna no WhaitForSingleObjekt no ne mojah da prihwana Hadleto na butona ).

ако се включи и Application.ProcessMessages
просто няма смисъл да мъчиш, защото даваш достатъчно прцесорно време и на другите процеси....