VPF::Открыть закрытую форму - Форум программистов

Uragan

Дата 9.8.2009, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Мне нужно, чтобы при обычном включении открывалась к примеру вторая форма(2), при автозагрузке программы, открывалась первой первая форма(1). Как это сделать?

Я вторую форму сделал главной(2), спрятал ее и при обычной загрузке норм,

Код


procedure TForm2.FormCreate(Sender: TObject); 
begin 
  Application.ShowMainForm := false; 
end;

но как ее открыть при автозагрузке?

Код


procedure TForm2.FormActivate(Sender: TObject); 
var 
i: integer; 
autorun: boolean; 
begin 

//Проверяю, как запущена прграмма, если атозапуск, то 
Autorun:=false; //снимаем флаг 
//проходимся по всем параметрам командной строки 
 for i:=1 to ParamCount do 
    begin 
      if(ParamStr(i)='-a') then //если это тот ключик 
        Autorun:=true;  //взодим флаг 
    end; 

//проверяем флаг если взведен то из автозапуска иначе ручками запущена 
if (Autorun) then 
   begin

Добавлено @ 14:05
я хочу сделать, так:
ПРога бэкапа, если запускать из винды, то просто открывается в трей, если с виндой, то автоматически вылазиет окно с полосой прогресса копирования файлов...

Это сообщение отредактировал(а) Rrader - 9.8.2009, 14:08

Christoph

Дата 9.8.2009, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

из дркб, такое подходит?

Код


begin
  Application.Initialize;
  if < какое - то условие > then
    begin
      Application.CreateForm(TForm1, Form1);
      Application.CreateForm(TForm2, Form2);
    end
  else
    begin
      Application.CreateForm(TForm2, Form2);
      Application.CreateForm(TForm1, Form1);
    end;
end.
Application.Run;

--------------------

Uragan

Дата 10.8.2009, 05:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Спасибо! Но вот, что еще у меня только на одной из форм есть компонент трей икон для икрнки в трее и только в одной форме описан алгоритм резервирования баз и список баз (Form1), как мне сделать, чтобы при автозапуске открывалась форма 2 и бэкапила базы указанные в компоненте ListView первой формы? Я писал Form1.toolButton1.Click, но ничего не происходит, пока не откроешь эту форму.

Antony41

Дата 10.8.2009, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

попробуй

Код


Form1.ToolButton1.OnClick(Self);

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »