Salut

je fais mon Programme grand avec cett Code
Et maintenent je voudrais faire mon Programme petit une autere fois !

procedure TForm1.Button1Click(Sender: TObject);
var
  sWidth: Double;
  sHeight: Double;
begin
  sWidth := Screen.MonitorFromWindow(Handle).Width / Width;
  sHeight := Screen.MonitorFromWindow(Handle).Height / Height;
  if sWidth < sHeight then
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.01), Width);
  end
  else
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.01), Height);
  end;
  WindowState := wsMaximized;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
???
end;

Réponse acceptée !

Bonjour,
alors pour que la fenetre occupe tout l'écran : WindowState := wsMaximized;

Pour la rendre toute petite : Application.Minimize;
Pour la remettre à la taille initiale : Application.Restore;

Voila, c'est ca à moins que je n'ai mal compris ta question.

Bonne continuation à toi !

Cordialement, Bacterius !

PS : Désolé pour les posts en haut, je n'arrive plus très souvent à entrer de message sans que ca beug :'( faudra chercher la raison eventuellement ...

Salut

le Code que j ai donne est ne pas bien
j si maintenent un autere Code qui me peut etre aider

ScaleBy(120, 100); // form scale 120%
WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.2 ; // webbowser-Content 120% scale

Sa marche bien et exacte
mais je voudrais auussi metre la Form (le Programme) grand (Maximum sur L'Ecran)
Comment puis je faire ca ?

Bonjour,
pour l'agrandir de sorte qu'elle remplisse TOTALEMENT l'écran, tu dois cacher la barre des tâches (impossible de faire autrement je crois). Tu la caches (indice : ShowWindow(***); ). Et ensuite tu mets à wsMaximized. Normalement ca marche. N'oublie pas de la remettre visible quand tu quittes ton application, c'est embetant sinon !

Bonne continuation.

Cordialement, Bacterius !