Pergunta : delphi funciona uma vez

Eu tenho muitos formulários de delphi em meu

Where/How do projeto… sou mim que vou codificar, se eu declarei um funcionamento uma vez a meu projeto, A SEGUIR, se eu funciono outra vez o programa com um parâmetro, mostrará o ParamForm.


//que eu não penso que este é um bom idea
{
se then
begin
ParamForm.Show do <> do paramstr do begin

if do then
do <> 0 de Mutex (1) '';
end

else
CloseHandle (Mutex); extremidade do
; extremidade do
;
} class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 notpretty Project1 " do class= " do id= " codeSnippet670014 do 
 0 de Mutex) e (GetLastError = 0) então
  começar
   Application.Initialize;

   fSplashForm: =TfSplashForm.Create (aplicação);
   fSplashForm.Show;

  Application.ShowMainForm: = falso;
  Application.CreateForm (TfMainform, fMainform);
  Application.CreateForm (Tusbform, usbform);
  Application.CreateForm (TdbUpdateForm, dbUpdateForm);
  Application.CreateForm (TParamForm, ParamForm);
  Application.Run;

    se <> 0 então CloseHandle de Mutex (Mutex);
  extremidade;


extremidade.
class= do

Resposta : delphi funciona uma vez

Um bocado melhor:

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

procedimento TMainForm.WndProc (mensagem do var: TMessage);
var
  NewParamForm: TParamForm;
começar
  se Message.Msg = msg_ShowParamForm então
  começar
    NewParamForm: = TParamForm.Create (auto);
    NewParamForm.Top: = LastPos.x;
    NewParamForm.Left: = LastPos.y;
    Inc (LastPos.x, 30);
    Inc (LastPos.y, 30);
    NewParamForm.Show;
  extremidade
  mais
    herdado;
extremidade;
Outras soluções  
 
programming4us programming4us