Вопрос : 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;
  конец
  еще
    унаследовано;
конец;
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us