TForm wird nicht aktualisiert

[ichbins]

@jelzi: Nirgends, aber vllt will er es ja verschieben, minimieren, maximieren oder beenden oder den Vorgang abbrechen.

application.processmessages verarbeitet diese Klicks auf das Form. Wenn die Klicks nicht verarbeitet werden (was während längeren Vorgängen passiert) sagt windoof natürlich, dass das Programm auf seine Nachrichten (wie Mausklicks) nicht reagiert. Bei einem abgestürtzten Program ist es ja genauso.


äääähhh... sry, ich hab dich falsch verstanden. Das repaint muss durch das application.processmessages ersetzt werden.

ein Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  canceled:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  button1.Enabled:=false;
  //Button, der die Aktion durchführt
  canceled:=false;
  //Sehr lange Aktion durchführen
  for i:=1 to 1000000 do begin
    for j:=1 to 1000000 do begin
      //Hier jetzt Windows-Botschaften abarbeiten
      application.ProcessMessages;
      if application.Terminated then
        exit;
      if canceled then begin
        showmessage('Vorgang abgebrochen.');
        button1.Enabled:=true;
        exit;
      end;  //  <-- bis hier.
      //weitere Dinge tun...
    end;
  end;
  button1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  canceled:=true;
end;

end.