Discussion :

[redoran]

Bonjour ; je me réveille ce matin avec ce problème :
lors de lancement de mon application a partir de l'icon de raccourci sur mon bureau la fiche de mot de passe s'affiche , après la saisie du mot de passe j'ai rien sur le bureau ,la fiche du menu principale qui est sensé occupée tous le bureau reste affiché dans la barre des taches!!!!!!
sachant que je n'ai mis aucun code pour la laissé dans la barre des taches !!!!
je me demande d'où vient cette erreur ? at que dois je faire ?

[Lung]

Ton WindowState (de la fenêtre principale) n'est pas à wsMinimized ?

Sinon, montre un peu ton code (dpr, OnCreate, ...).

[redoran]

Re ; windowstate=wsmaximized

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
unit mnuprinc;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ExtCtrls, ToolWin, Grids, DBGrids, Buttons,
  StdCtrls, DBCtrls, WinSkinData, ImgList, jpeg, XPMan;
 
type
  TFmnuprinc = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    MonthCalendar1: TMonthCalendar;
    ToolBar1: TToolBar;
    tbfmalade: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    Mouvements1: TMenuItem;
    Commande1: TMenuItem;
    Inventaire1: TMenuItem;
    Reception1: TMenuItem;
    Recupration1: TMenuItem;
    Primer1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Registre1: TMenuItem;
    Statistiques1: TMenuItem;
    Misejour1: TMenuItem;
    Aide1: TMenuItem;
    Outils1: TMenuItem;
    Exportationdesdonnes1: TMenuItem;
    Wilaya1: TMenuItem;
    Commune1: TMenuItem;
    N3: TMenuItem;
    UCTMR1: TMenuItem;
    N4: TMenuItem;
    ListeMdicaments1: TMenuItem;
    ListeFabriquants1: TMenuItem;
    N5: TMenuItem;
    OPD1: TOpenDialog;
    N6: TMenuItem;
    Quitter1: TMenuItem;
    Service1: TMenuItem;
    Motdepasse1: TMenuItem;
    ImageList1: TImageList;
    ableaudeBord1: TMenuItem;
    StockMdicaments1: TMenuItem;
    GuideTuberculose1: TMenuItem;
    N7: TMenuItem;
    Panel1: TPanel;
    ParamtresUtilisateur1: TMenuItem;
    XPManifest1: TXPManifest;
    procedure SpeedButton2Click(Sender: TObject);
    procedure Wilaya1Click(Sender: TObject);
    procedure Commune1Click(Sender: TObject);
    procedure UCTMR1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton4Click(Sender: TObject);
    procedure LocalisationTEPSTATUTBACTERIOLOGIQUE1Click(Sender: TObject);
    procedure ListeMdicaments1Click(Sender: TObject);
    procedure ListeFabriquants1Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Service1Click(Sender: TObject);
    procedure Registre1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Motdepasse1Click(Sender: TObject);
    procedure ParamtresUtilisateur1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Fmnuprinc: TFmnuprinc;
 
implementation
 
uses registre, wilaya, Unit1, commune, uctmr,shellapi, localis, listmed,
  fabriq, etablissement, gstok, modifmpas, uparam, urapportperiod, ufmedic,
  Utb;
 
{$R *.dfm}
 
 
procedure TFmnuprinc.SpeedButton4Click(Sender: TObject);
var alias :string;
begin
if(OPD1.Execute) then
alias:=opd1.FileName;
ShellExecute(Handle,'open',PChar(alias),nil,nil,SW_SHOW);
end;
 
procedure TFmnuprinc.LocalisationTEPSTATUTBACTERIOLOGIQUE1Click(
  Sender: TObject);
begin
flocalis.showmodal;
end;
 
 
procedure TFmnuprinc.Quitter1Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TFmnuprinc.Registre1Click(Sender: TObject);
begin
fregistre.showmodal;
end;
 
procedure TFmnuprinc.FormCreate(Sender: TObject);
begin
Application.HintHidePause:=4000; //4 secondes
Application.HintColor:=$00E1E1E1;
Application.HintShortCuts:=True; //Active la vue des raccourcis dans les boites de dialogue.
end;
 
procedure TFmnuprinc.SpeedButton1Click(Sender: TObject);
begin
ftb.showmodal;
end;
 
end.

sur une machine de teste sa ne marche pas; une idée

[redoran]

suite a mon poste : j'ai rien mis dans le oncreat , j'ai désinstallé et réinstallé delphi 07 su XP pack 02 alors le même problème persiste.
pour l'instant je pense a récupéré la dernière sauvegarde du projet ( tous les 15 jours je fait une copie sinon si j'exécute une manœuvre dont j'ai des doutes alors je fait une sauvegarde)

[redoran]

Re ; j'ai pas trouvé de solutions alors j'ai redémarré avec ma dernière sauvegarde et sa marche impeccablement merci lung