Цитата:
Сообщение от Uniq!
Проблема в том что форма сначала должна появиться на экране, а потом должен запуститься процесс.
|
Ну повесь одноразовый таймер. В чем проблема-то?
Код:
procedure TForm1.FormCreate(Sender : TObject);
begin
Timer1.Interval := 5000; // Задержка 5 сек
Timer1.Active := True;
end;
procedure TForm1.Timer1Timer(Sender : TObject);
begin
Timer1.Active := False;
// ... здесь вызов твоего кода
end;