Поиск сообщества
Показаны результаты для тегов 'fmx cursor'.
Найдено: 1 результат
-
Кто нить делал сабж в FMX? Интересует красивое решение. На vcl это конечно Screen.Cursor типа crHourglas, crSqlWait и т.к. В своем проекте сделал пока на Toast от Roland Kossow. Хоть и работает Но чую отдает глупостью... Может какие то анимации лучше юзать, но незнаю как. procedure TfmMain.ShowText(const aTxt: string; const aType: byte = 0); begin case aType of 0: tsMain.Duration := 3000; 1: tsMain.Duration := 60000; 2: tsMain.Duration := 1; end; tsMain.Now(aTxt); end; ShowText('Загрузка...',1); try ...долгая процедура finally ShowText('Загрузка...',2); end;
