Kleines VCL-Problem

[Wolfgang Mix]

Nach Klick auf Button1 wird 'Mix#' in Edit1 nicht angezeigt,
nach ca. 5 sec. wohl aber der geänderte Text.
Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  s:='Mix#';
  Edit1.Text:=s; //Klappt nicht
  delete(s,1,3);
  sleep(5000);
  Edit1.Text:=s;
end;

end.

[DeddyH]

Setz mal ein Application.ProcessMessages vor das sleep.

[Wolfgang Mix]

Danke, klappt.
Aber was passiert da wirklich im Hintergrund?

[DeddyH]

Bis einschließlich des sleep ist das Programm zu beschäftigt, um das Edit neu zu zeichnen. Durch das Application.ProcessMessages lässt Du es aber zunächst die Botschaftswarteschlange abarbeiten, deshalb klappt das.

[Der.Kaktus]

Hallo,

so klappts ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var s:string;
begin
  s:='Mix#';
  Edit1.Text:=s; 
  Edit1.Update;//hier nach klappts !
end;

[Wolfgang Mix]

Danke, das nene ich Service.
BTW, deine alte Fußnote finde ich cooler.;-)

Danke auch an Der.Kaktus
Gruß

Wolfgang

[DeddyH]

[OT]

Zitat:

Zitat von Wolfgang Mix

BTW, deine alte Fußnote finde ich cooler.;-)

Naja, ab und zu sollte man mal wechseln, sonst wird das langweilig :zwinker: [/OT]