Посылка сообщения окну

[grigoreo]

Кто нибудь знает как в Lazaruse реазизовать вот такое , но желательно чтобы предложеный метод и под виндой и линуксом тоже работал

SendMessage(Self.Handle,WM_NEXTDLGCTL,0,0);

[Павел Ишенин]

Послать сообщение само по себе не сложно (подключите LCLIntf и используйте SendMessage), но кто его будет обрабатывать? Если это ваш собственный диалог, то добавьте обработчик этого сообщения и напишите реализацию. Если вы хотите, чтобы WM_NEXTDLGCTL отработало под linux для системного диалога, то увы - lazarus не эмулирует windows.

[alexs]

а что делает это сообщение? если выбор следующего контрола по порядку обхода - то просто метод SelectNext

[grigoreo]

а что делает это сообщение? если выбор следующего контрола по порядку обхода - то просто метод SelectNext

да это сообщение в Виндовс эмулировало нажатие кнопки Tab, поэтому мне и нужен вариант чтобы такой код обрабатывался и в Виндовсе и в других поддерживаемых Фрее Паскалем платформах в частности в Линуксе

[Attid]

grigoreo
могу только посоветовать посмотреть исходники xneur как он там это делает.

[Павел Ишенин]

да это сообщение в Виндовс эмулировало нажатие кнопки Tab, поэтому мне и нужен вариант чтобы такой код обрабатывался и в Виндовсе и в других поддерживаемых Фрее Паскалем платформах в частности в Линуксе

Если так и нужно только для lazarus форм, то SomeForm.PerformTab() не подойдет?

[grigoreo]

а что делает это сообщение? если выбор следующего контрола по порядку обхода - то просто метод SelectNext

да это сообщение в Виндовс эмулировало нажатие кнопки Tab, поэтому мне и нужен вариант чтобы такой код обрабатывался и в Виндовсе и в других поддерживаемых Фрее Паскалем платформах в частности в Линуксе

Если так и нужно только для lazarus форм, то SomeForm.PerformTab() не подойдет?

Спасибо оба варианта работают

[grigoreo]

а что делает это сообщение? если выбор следующего контрола по порядку обхода - то просто метод SelectNext

а как после выполнение перехода на следующий контрол реализовать чтобы если в том контроле есть текст, переместится в конец строки?

[Attid]

Edit1.CaretPos ?

[grigoreo]

Edit1.CaretPos ?

А тогда подскажи как узнать текущий контрол формы на котором сейчас стоит фокус, просто обработчик событий стоит общий, или может есть эвент которое происходит когда контрол получает фокус?