Delphi-Quellcode:
var time1,time2 : tdatetime;
begin
time1 := NOW();
Form1.DXDraw1.Restore;
DXImageList1.Items[1].draw(DXDraw1.Surface, 0, 0, 0);
DXDraw1.Flip;
time2 := NOW();
showmessage(TimeToStr(time2-time1));
end;
müsste gehen wobei ich mit timetostr nicht so sicher bin
edit hier um ms und sec anzuzeigen
showmessage(formatdatetime('ss:zzz',time2-time1));