Как передать в TEdit подстроку под курсор

[nnova]

Добрый день, не нашел на форуме. Проблема такая:
1)При нажатии на TButton1 в TEdit передается, например, символ "а", при нажатии на TButton2 передается символ "б", но так что бы символы добавлялись в то место, где стоит(стоял до потери фокуса) курсор edit'a.
--
Если можно с кодом, спасибо за помощь.

[mihali4]

Текущая позиция курсора равна Edit.SelStart. Эту величину нужно отслеживать в событиях EditChange, EditMouseUp, EditKeyUp и хранить в глобальной переменной.
Так вы всегда будете знать позицию курсора в Edit.

[nnova]

Решено. Все дело было в том что я использовал TButton, который снимает фокус с TEdit и устанавливает на себя. А SelStart и SelLenght теряют смысл (устанавливаются в 0) после потери фокуса. Решением было сменить TButton на TSpeedButton. Код, кому интересно, такой:

procedure TfmMain.SpeedButton1Click(Sender: TObject);
var
tmp: String;
i: Word;
pos: Word;
begin
pos := Edit1.SelStart;
for i := 1 to Edit1.SelStart do
tmp := tmp + Edit1.Text[i];
tmp := tmp + 'w';
if Edit1.SelStart < Length(Edit1.Text) then
for i := Edit1.SelStart + 1 to Length(Edit1.Text) do
tmp := tmp + Edit1.Text[i];
Edit1.Text := tmp;
Edit1.SelStart := pos + Length('w');
end;

[mihali4]

А вот так - с простым TButton

procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmpedit: string;
    oldedpos: integer;
begin
oldedpos:=Edit1.SelStart;
tmp:='A';
tmpedit:=Edit1.Text;
Insert(tmp, tmpedit, oldedpos+1);
Edit1.Text:=tmpedit;
Edit1.SetFocus;
Edit1.SelLength:=0;
Edit1.SelStart:=oldedpos+1;
end;

Какая разница - уходит фокус с эдита или нет?

[nnova]

mihali4, а ты случаем не в курсе, как узнать где стоит курсор на веб-странице (на каком INPUT,e), загруженной в TWebBrowser. Как получить handle этого input'a ???

[nnova]

Сообщение от nnova

mihali4, а ты случаем не в курсе, как узнать где стоит курсор на веб-странице (на каком INPUT,e), загруженной в TWebBrowser. Как получить handle этого input'a ???

Сам написал сам и отвечу: накопал в MSDN такой код:
Когда документ уже загружен, OnDocumentComplete, в обработчике пишем:

// Нужно получить handle 2го уровня
//из окна TWebBrowser

global myHandle: Thandle;
-----
var h: THandle;
begin
h:=GetWindow(myWebbrowse.Handle, GW_CHILD); // Это уровень 1
h:=GetWindow(h, GW_CHILD); // а это уже 2
myHandle:=h;
end;

Далее myHandle уже можно использовать в SendMessage. Правда насколько я понял такой прием не будет работать с фреймами. И еще одна проблема: я хочу что бы по щелчку кнопки добавлялся новый page в pageControl и соответственно программно рождался новый TWebBrowser. Вот тут опять возникает тот же вопрос, как получить handle активного элемента, поиск GW_CHILD уже ни чего не дает для 2 го уровня. Вопрос знатокам...? Как вообще корректно решить this?