-
Постов
208 -
Зарегистрирован
-
Посещение
-
Победитель дней
12
Весь контент GASCHE
-
Это не ко мне, а к тем, кто думает, что FMX устойчива к взлому.
- 24 ответа
-
- лицензия
- лицензирование
-
(и ещё 2 )
C тегом:
-
Да нет, просто не представляю того, кто рискнет писать серьезные приложения на FMX, а не серьезные так их и ломать будут не по серьезному.
- 24 ответа
-
- лицензия
- лицензирование
-
(и ещё 2 )
C тегом:
-
Нет, но думаю что если FMX настолько устойчива к взлому и примерно представляя как пытаются защитить свой софт некоторые компании, то Kitty не поднимала бы вопрос о дальнейшей судьбе FMX.
- 24 ответа
-
- лицензия
- лицензирование
-
(и ещё 2 )
C тегом:
-
Сколько не видел хороших приложений, почти всегда есть взломанные.
- 24 ответа
-
- лицензия
- лицензирование
-
(и ещё 2 )
C тегом:
-
А переменная Button будет видна в этом отдельном потоке в случае завершения процедуры lbxMouseUp?
-
Перефразирую, читать данные других клиентов с сервера, проводить вычисления, итоги и свои данные скидывать на сервер. Это возможно, на каждом клиенте поднимаете свой сервер, который будет слушать запросы других клиентов и скидывать им требуемые данные. Но не думаю, что это будет проще чем работа с одним сервером.
-
Да, в режиме планшета всплывает.
-
На 10 у меня не всплывает, уточните это где? Клаву отключил.
-
Проще выложить исходники и *.exe файлы. Тогда сравнение будет более объективным.
-
Если можно принимать данные блоками, то можно так WHILE NOT ThreadData.Terminated DO BEGIN END; Сейчас уже не помню почему но перешёл на BeginThread.
-
А что мешает так изменить ваш пример procedure TForm1.Button1Click(Sender: TObject); begin i := 0; Finish := False; Memo1.Lines.Add('Start'); Button2.Enabled := True; Button1.Enabled := False; end; procedure TForm1.Button2Click(Sender: TObject); begin Inc(i); Memo1.Lines.Add(IntToStr(i)); if (i = 5) then begin Finish := True; Button2.Enabled := False; Ogogo(); end; end; procedure TForm1.Ogogo(); BEGIN //while not Finish do //Application.ProcessMessages; Memo1.Lines.Add('Finish'); Button1.Enabled := True; END;