Скачать: CL | DM;

Как открыть форму?   Найти похожие ветки 

← →
novice   (2006-06-01 13:21) [0]

begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);

 If ParamCount = 0 Then
   Application.Run
 Else
   begin
   For i := 1 To ParamCount do
   begin
     Key := LowerCase(ParamStr(i));
     If Key = "/auto" Then
       begin
Вот к этому моменту хотелось бы иметь уже открытую форму
         Form1.Button1.Enabled := False;
         Form1.Button1Click(Application);
         Application.Run;
А не в этот момент
       end
     Else
       begin
        ShowMessage("Ключи запуска приложения:" + chr(13)
          + "/auto - автозапуск;" + chr(13) + "/help - эта справка;"
          + chr(13) + "без ключа - обычный запуск.");
         Application.Terminate;
       end
   end;
   end;

end.

---

← →
unknown ©   (2006-06-01 13:23) [1]

> novice   (01.06.06 13:21)

Вот это :>  If ParamCount = 0 Then... надо оформить в Form1.OnCreate

---

← →
novice   (2006-06-01 13:27) [2]

А зачем (я этот кусок оттуда, вобщем-то, и перенес)?

---

← →
novice   (2006-06-01 13:34) [3]

Я может и не прав, но ведь пока OnCreate не завершится, то и формы как-бы еще не существует?

---

← →
novice   (2006-06-01 13:35) [4]

Блин, чушь сморозил. Мне про ивана, а я про FormCreate.

---

← →
unknown ©   (2006-06-01 13:38) [5]

> novice   (01.06.06 13:34) [3]
> Я может и не прав, но ведь пока OnCreate не завершится,
> то и формы как-бы еще не существует?

Существует. OnCreate вызывается в AfterConstruction :
procedure TCustomForm.AfterConstruction;
begin
 if not OldCreateOrder then DoCreate;
т. е. тогда, когда форма уже создана.

---

← →
novice   (2006-06-01 15:27) [6]

Мдя... Чего-то я совсем далек от мысли: как обрабатываются события? Процедура Form1.OnCreate не создается, в инспектора, в соответствующее поле свою процедуру не вставлю. Просветите по IDE.

---

← →
novice   (2006-06-01 16:27) [7]

Все оказалось намного проще:
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Form1.Show;
 Form1.Refresh;
 For i := 1 To ParamCount do
 begin
   Key := LowerCase(ParamStr(i));
   If Key = "/auto" Then
     begin
       Form1.Button1.Enabled := False;
       Form1.Button1Click(Form1);
     end
   Else
     begin
      ShowMessage("Ключи запуска приложения:" + chr(13) + "/auto - автозапуск;" + chr(13) + "/help - эта справка;" + chr(13) + "без ключа - обычный запуск.");
       Application.Terminate;
     end
 end;
 Application.Run;
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c