Discussion :

[looping]

rebonjour,

problème avec le code suivant:

ce ne fonctionne pas:
j'ai l'erreur "ne peut pas changer visible or hide avec onshow"


j'ai essayé avec "onrepaint" et "onactivate" ; meme problème ?

merci

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
 
procedure TForm1.FormShow(Sender: TObject);
begin
if (JvComputerInfoEx1.Screen.Width > 1024) and (JvComputerInfoEx1.Screen.height > 768) then
begin
form1.WindowState:=wsNormal;
form1.Position:=poscreencenter;
form1.BorderIcons:=[biSystemMenu,biMinimize];
end
 else
begin
  form1.WindowState:=wsMaximized;
  form1.BorderIcons:=[biSystemMenu,biMinimize,biMaximize];
end;
end;

[Cl@udius]

Salut

Déplace ton code dans le OnCreate de la Form.

@+ Claudius