Показать сообщение отдельно
  #3  
Старый 25.08.2013, 15:12
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Цитата:
Сообщение от NumLock
TProgressBar, TAnimate

Какие компоненты использовать, я знаю. Мне идея нужна.
Пока в голову пришла только одна:

Код:
ADOConn.Connected := true;
Progressbar.position := 20;
Application.ProcessMessages;
ADOTable1.Open;
Progressbar.position := 20;
Application.ProcessMessages;
...

4ре таблицы + само соединение. А если ещё будут таблицы... Покрасивее ничего нет?
Ответить с цитированием