TMSWebUpdate - eine neue WebUpdate-Komponente

[Marco Steinebach]

Hallo Rolf,
nicht direkt, aber über einen Umweg.
Du brauchst eine variable, sagen wir

Delphi-Quellcode:

var
  DownloadStarten: boolean;

Dann sowas wie ...

Delphi-Quellcode:

procedure TForm1.NeuerungenClick (sender: TObject);
begin
  DownloadStarten := false;
  WebUpdate.CheckForUpdates;
end;

procedure TForm1.DownloadStartenClick (sender: TObject);
begin
  DownloadStarten := true;
  WebUpdate.CheckForUpdates;
end;

procedure TForm1.WebUpdateOnUpdateFound (...)
begin
  if not DownloadStarten then
  // ist beim click auf "Neuerungen zeigen" der Fall. Hier werden die
  // Neuerungen angezeigt, der Download aber nicht gestartet.
    with TWhatsNewFormular.Create (self) do
      try
        ShowModal (WebUpdate.NewVersion, WebUpdate.WhatsNewList);
      finally
        free;
      end;
  download := false;
  else // DownloadStarten ist true, neuerungen wurden schon angezeigt ...
    download := true
end;

So denke ich, könnte es gehen.
Viele Grüße
Marco