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;