Aquí un ejemplito:
Código Delphi
[-]
type
TQueryThread = class(TThread)
private
Query: TQuery;
protected
procedure Execute; override;
public
class procedure Run(Query: TQuery);
end;
implementation
procedure TQueryThread.Execute;
begin
Query.Open;
end;
class procedure TQueryThread.Run(Query: TQuery);
var
Thread: TQueryThread;
begin
Thread := TQueryThread.Create(true);
Thread.FreeOnTerminate := true;
Thread.Query := Query;
Thread.Resume;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
TQueryThread.Run(Query1);
end;
// Saludos