Programm führt keine Aktion aus, wenn nicht Focus

[Timi-loader]

ganz einfach:

Delphi-Quellcode:

procedure TForm1.doalle;
var
  h: HWnd;
begin
  h := handle;
  while h > 0 do
  begin
    if checkbox1.Checked=true then
    begin
    if isWindowVisible(h) then
      MakeTransparent(h,strtoint(edit1.text));
    end
    else
     begin
     MakeTransparent(h,strtoint(edit1.text));
     end;
    h := getnextwindow(h, GW_HWNDNEXT);
  end;
end;

diese prozedur habe ich neu erstellt und da steht ja der code und die variablen drinn die zuvor hier drinn waren: jetzt steht da:

Delphi-Quellcode:

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

und beim timer:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
doalle;
application.ProcessMessages;
end;

..wahnsinnig schwer ausgelagert ^^

mfg