EnterTextInto method |
Applies to
TGUITestCase
Declaration
Procedure EnterTextInto(Control :TControl; Text :string);Implementation
procedure TGUITestCase.EnterTextInto(Control: TControl; Text: string); var i :Integer; begin Assert(Control <> nil, 'No control'); Control := FindParentWinControl(Control); if Control <> nil then begin for i := 1 to Length(Text) do begin PostMessage(TWinControl(Control).Handle, WM_CHAR, Ord(Text[i]), 0); Sleep(ActionDelay); end; end; Application.ProcessMessages; End; |
|