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
Навигация