2 действия одновременно

[Mr_skiner]

Мне нужно чтобы в моей программе можно было работать паралельно с тикающим таймером, а выходит так, что пока работает таймер нужно ждать.. как организовать параллельность?

[mrCloud]

var thread:TThread;
begin
Thread:=TThread.Create(false);
{Код программы}
end;

[Mr_skiner]

Что то не получается пока прога вычисления делает - таймер стоит

[bananasus]

Кидай исходник, мы же не экстрасенсы...

[Serge_Bliznykov]

Что то не получается пока прога вычисления делает - таймер стоит

с отдельной нитью (процессом) - TThread, как предложил mrCloud, таких проблем не должно быть.
вы уверены, что правильно в коде создаёте отдельный поток?!

впрочем, даже с обычной формой - если вычисления в цикле, то повставляйте в цикл вычисления команды обработки очереди сообщений - должно помочь:

for ... do begin
  ...
  Application.ProcessMessages;
end;
while ... do begin
  ...
     Application.ProcessMessages;
end;

[Mr_skiner]

ну исходник тут довольно таки большой, суть такая. Вводишь- логин -пароль и пока программа их сверяет с Базой данных хочу сделать Форму где написано ждите и крутятся часики или статус бар или еще что то. А получается так что если отдельно открыть эту форму- все работает, а если так как я хочу - нефига не получается. Код довольно большой сейчас попробую отобразить .

Вот таймер

procedure TWait.Timer1Timer(Sender: TObject);
var
begin
  i:=i+1;
  if i>=7 then i:=0;
  Image1.Transparent:=true;
  Image1.Picture:=nil;
  ImageList1.GetBitmap(i,Image1.Picture.Bitmap);

end;

А вот код входа

procedure TVhod.sBitBtn2Click(Sender: TObject);
begin
 Wait.Show; отображение формы с таймером
  try
    тут сам вход и сверка с базой данных
  Except
    Showmessage('Ошибка подключения к интернету');
    end;
    Wait.hide;  Скрывание формы с таймером
end;

[mrCloud]

var thread:TThread;
begin
Thread:=TThread.Create(false);
i:=i+1;
  if i>=7 then i:=0;
  Image1.Transparent:=true;
  Image1.Picture:=nil;
  ImageList1.GetBitmap(i,Image1.Picture.Bitmap);

end;

[Mr_skiner]

не помогло =(

[Mr_skiner]

Может потому что таймер находится на другой форме?

[veniside]

> пока программа их сверяет с Базой данных

вот эту сверку и надо делать в отдельном потоке. таймер тут до лампочки.