Hi,
Ich habe ein Problem mit meinem Prog.
Delphi-Quellcode:
procedure TMain.ToolButton2Click(Sender: TObject);
begin
StatusBar1.Panels[1].Text := 'Bitte warten...';
ToolButton2.Enabled := False;
ToolButton3.Enabled := False;
ToolButton5.Enabled := False:
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '111', 'in ', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '222', 'das', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '333', 'von', [rfReplaceAll]);
ProgressBar1.StepIt;
...
end;
Wenn ich jetzt auf den ToolButton2 klicke, startet es, aber erst ab Memo1.Lines... Also alles davor wird einfach übersprungen ! Wenn ich jetzt aber zwischen ToolButton5... und Memo1..., ShowMessage('Hallo'); setze, werden die oberen befehle nicht übersprungen. Warum is das so und wie kann ich alles ausführen, ohne das ich ne meldung anzeigen muss ?
MFG