CreateAnonymousThread как этим пользоваться?

(1/1)

dimchik_b:
Господа, помогите, пожалуйста, перевести с 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:
Ищите тут. В одной из тем было:
http://bcbjournal.org/forums/viewforum.php?f=10

Навигация

[0] Главная страница сообщений