C++Builder
  Начало   Форум   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: CreateAnonymousThread как этим пользоваться?  (Прочитано 2984 раз)
dimchik_b
Участник
**

Сказали спасибо: +0/-0
Offline Offline

Сообщений: 95


« : 29 ноября 2017, 00:17:05 »

Господа, помогите, пожалуйста, перевести с Delphi на Builder
Код
procedure TForm1.Edit1Validate(Sender: TObject; var Text: string);
begin
 if Text <> '123' then
 begin
   Text := 'Invalid';
   TThread.CreateAnonymousThread(
   procedure
     begin
       TThread.Synchronize(nil,
        procedure
         begin
           Edit1.SetFocus;
         end);
     end).Start;
 end;
end;
Записан
SilverFish
Участник
**

Сказали спасибо: +14/-6
Offline Offline

Сообщений: 789


« Ответ #1 : 29 ноября 2017, 19:59:55 »

Ищите тут. В одной из тем было:
http://bcbjournal.org/forums/viewforum.php?f=10
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в: