Delay(sleep) nicht synchron,gegenseitige Blockade

[new32]

Du kannst das Problem mit 2 separaten Threads lösen:

Delphi-Quellcode:

function m1(arg:pointer):DWORD;stdcall;
begin
 sleep(2000);
 MessageBox(form1.Handle,'','',MB_OK);
 result:=0;
end;

function m2(arg:pointer):DWORD;stdcall;
begin
 sleep(5000);
 MessageBox(form1.Handle,'','',MB_OK);
 result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
id:cardinal;
begin
CreateThread(nil, 0, @m1, nil, 0, id);
end;

procedure TForm1.Button2Click(Sender: TObject);
id:cardinal;
begin
CreateThread(nil, 0, @m2, nil, 0, id);
end;