Работа с выделенным текстом

[Mrsqler]

Есть программа которая переводит текст из en раскладки в ru .Но для этого нужно вводить текст в окно edit.А можно ли сделать так,чтобы юзер выделял текст написанный в раскладке en(текст может находится где угодно,например при переписке в ICQ),жал на определенную кнопку, и текст переводился в ru раскладку?
Возможно ли такое реализовать на Delphi? У меня текст переводится,но только если вводить его в поле edit.Программа прилагается.

[Shouldercannon]

Edit1.Text := Translit(Edit1.SelText);

[BDA]

Shouldercannon, это не то
Нужно менять в других приложениях, а не в своей программе.

[EUGY]

Ну, внедряться во все мыслимые чужие приложения наверно не стоит, а вот всплывающее окошко по принципу tooltip'a зыбацать можно.
Если текст выделяется, значит его можно программно скопировать, проделать транслитерацию и отобразить в тултипе. Вообще автору +1 за идею!
PS. А если все-таки надо в чужое, также программно: копировать-изменить-вставить.

[Mrsqler]

Ну,я нашел компонент AdvAlert с ним можно сделать всплывающее окно)
А чтобы я текст где-нибудь выделил,нажал на кнопку,и текст перевелся.Это можно реализовать?

[BDA]

Вот примерчик.
Правда сработал только в блокноте и в самом дельфи (в аське не сработал, в адресной строке Хрома заменяет, но Хром тут же меняет обратно).
Да, перейдите в Дельфи новых версий (я компилировал в дельфи 2010).
Для работы выделяете текст и нажимаете ctrl+F1.

[Mrsqler]

Спасибо огромное!!Правда функции вообще понять не могу)

[BDA]

Пожалуйста) С пониманием не помогу, так как просто нашел функцию GetSysFocus, и убедился, что она иногда работает

[Mrsqler]

procedure TForm1.WMHotKey(var Mess: TWMHotKey);
var
  ACtrl: HWND;
begin
  ACtrl := GetSysFocus();
  sendmessage(ACtrl, WM_COPY, 0, 0);
  Clipboard.AsText := Translit(Clipboard.AsText);
  sendmessage(ACtrl, WM_PASTE, 0, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, MOD_CONTROL, vk_f1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

Это создание горячих клавиш? Ctrl+F1 ?

[BDA]

Да. Создание и удаление перед закрытием программы.