Question : Delphes fonctionnent une fois

J'ai beaucoup de formes de Delphes dans mon

Where/How de projet… suis moi allant coder, si j'ai déclaré une course une fois à mon projet, ALORS, si je lance encore le programme avec un paramètre, il montrera le ParamForm.


//que je ne pense pas que c'est un bon idea
{
si paramstr de begin

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

else
CloseHandle (Mutex) ; extrémité du
; extrémité du
;
} class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet670014 de 
 0 de Mutex) et (GetLastError = 0) puis
  commencer
   Application.Initialize ;

   fSplashForm : =TfSplashForm.Create (application) ;
   fSplashForm.Show ;

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

    si <> 0 puis CloseHandle (Mutex) de Mutex ;
  extrémité ;


extrémité.
class= de

Réponse : Delphes fonctionnent une fois

Un peu meilleur :

variété
  LastPos : TPoint = (x : 100 ; y : 100) ;

procédé TMainForm.WndProc (message de variété : TMessage) ;
variété
  NewParamForm : TParamForm ;
commencer
  si Message.Msg = puis msg_ShowParamForm
  commencer
    NewParamForm : = TParamForm.Create (individu) ;
    NewParamForm.Top : = LastPos.x ;
    NewParamForm.Left : = LastPos.y ;
    Inc. (LastPos.x, 30) ;
    Inc. (LastPos.y, 30) ;
    NewParamForm.Show ;
  extrémité
  autrement
    hérité ;
extrémité ;
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us