- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
if MethodName = AnsiUpperCase('Зробити_все_чудово_пречудово') then
begin
Screen.Cursor := crHourGlass;
try
for LowIndex := 0 to 200 do
begin
Application.ProcessMessages;
Sleep(10);
end;
ShowInfo('Тепер все чудово-пречудово.'#13#10'Посміхніться!');
finally
Screen.Cursor := crDefault;
end;
end
Lure Of Chaos 12.01.2011 15:16 # +4