Как программно в Андроид выполнить MouseDown для компонента?

[SVTX]

Подскажите как в Андроиде отослать MouseDown и MouseUp (имитировать клик) для конкретного компонента?

Скажем TEdit, чтобы он получил фокус, стал активным и появилась клавиатура. 

 

Спасибо.

 

[umkes]

Edit1.SetFocus не работает разве?

[Brovin Yaroslav]

На уровне формы есть методы для работы с мышью:

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); virtual;
procedure MouseMove(Shift: TShiftState; X, Y: Single); virtual;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single; DoClick: Boolean = True); virtual;
procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); virtual;
procedure MouseLeave; virtual;

Используйте их, для эмуляции нажатия мышкой или пальцем. В качестве координат нужно передавать абсолютные координаты компонента