Hola a todos, tengo un pequeño problema que no consigo resolver y agradeceria alguna ayuda.
Tengo una tabla con '0' a 'n' registros que se lee en un thread en el que se debe lanzar una modal por cada registro mientras haya, la modal tiene un bitbtn con Close en OnClik.
El problema consiste (supongo) en el cerrado de la modal, ya que cuando se cierra la primera, se para el bucle
Código del Thread:
Código:
procedure TForm2.IdThreadComponent2Run(Sender: TIdThreadComponent);
begin
if ADOtable2.RecordCount > 0 then
begin
ADOTable2.First;
while not ADOtable2.eof do
begin
Form23 := TForm23.Create(self);
Form23.showModal;
ADOTable2.Delete;
ADOTable2.Next;
end;
end;
end;
En create () he probado con self, nil y application, el resultado es el mismo.