Вопрос : delphi бежит раз

Я имею много форм delphi в моем

Where/How проекта… буду мной идя закодировать, если я объявлял бег раз к моему проекту, ТО, если я бегу снова программа с параметром, то он покажет ParamForm.


//, котор я не думаю это будет хорошее idea
{
если paramstr, то begin

if then
<> 0 Mutex (1)<> '' then
begin
ParamForm.Show;
end

else
CloseHandle (Mutex); конец
; конец
;
} class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37:

>program Project1 " class= " id= " codeSnippet670014 0 Mutex) и (GetLastError = 0) после этого начните Application.Initialize; fSplashForm: =TfSplashForm.Create (применение); fSplashForm.Show; Application.ShowMainForm: = ложно; Application.CreateForm (TfMainform, fMainform); Application.CreateForm (Tusbform, usbform); Application.CreateForm (TdbUpdateForm, dbUpdateForm); Application.CreateForm (TParamForm, ParamForm); Application.Run; если <> 0 после этого CloseHandle, то Mutex (Mutex); конец; конец.

class=

Ответ : delphi бежит раз

Бит более лучший:

var
  LastPos: TPoint = (x: 100; y: 100);

процедура TMainForm.WndProc (сообщение var: TMessage);
var
  NewParamForm: TParamForm;
начните
  если Message.Msg = msg_ShowParamForm после этого
  начните
    NewParamForm: = TParamForm.Create (собственная личность);
    NewParamForm.Top: = LastPos.x;
    NewParamForm.Left: = LastPos.y;
    Inc (LastPos.x, 30);
    Inc (LastPos.y, 30);
    NewParamForm.Show;
  конец
  еще
    унаследовано;
конец;