parar todas os forms menos um

Delphi

17/03/2004

como eu faço para parar(´enabled = false´) todos os forms que estão abertos?


Linhares

Linhares

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

17/03/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   for i:= 1 to screen.FormCount -1 do
      if Screen.Forms[i].Showing then
         Screen.Forms[i].Enabled:=False;
end;



GOSTEI 0
POSTAR