Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**DP News-Robot**

procedure ShowHourGlass(Proc: TProc); begin Screen.Cursor := crHourGlass; try Proc; finally Screen.Cursor := crDefault; end; end;

DP News-Robot Registriert seit: 4. Jun 2010 15.774 Beiträge	#1 Fun Code of the Week #3 2. Mai 2012, 00:40 procedure ShowHourGlass(Proc: TProc); begin Screen.Cursor := crHourGlass; try Proc; finally Screen.Cursor := crDefault; end; end; More...
	Zitat