Hallo,
ich hab ein kleines Problem:
ich habe ein Form, die anzeigen lasse. Im OnShow wird folgender Code ausgeführt. Bei Erfolg soll sich die Form Selbst schließen. Jedoch Passiert das nicht. Im Debugger kann ich sehen, das GoodSyntax True ist, er geht in in den If-Teil. Bearbeitet wohl auch das Close. Aber es schließt sich nicht.
Kann mir jmd helfen?
Delphi-Quellcode:
procedure TfrmCheck.FormShow(Sender: TObject);
var
i: Integer;
begin
BtnOK.Enabled := False;
ProgBar.Max := frmMain.memEdit.Lines.Count;
frmMain.GoodSyntax := True;
ProgBar.Position := 1;
memError.Clear;
for i := 0 to frmMain.memEdit.Lines.Count - 1 do
begin
if not frmMain.RegisterMaschine.CheckSyntax(i) then
begin
frmMain.GoodSyntax := False;
memError.Lines.Add('Fehler in Zeile: ' + IntToStr(i + 1));
end;
ProgBar.Position := i + 1;
Application.ProcessMessages;
end;
BtnOK.Enabled := True;
if frmMain.GoodSyntax then // GoodSyntax ist True
begin
Close; //Wird nicht ausgeführt
end;
end;