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

[Mrsqler]

Я вроде бы сделал все как у вас,программа скомпилировалась без проблем.Но текст не переводится.

[BDA]

Проверил, действительно не переводит.
Странно.
Правда, я компилировал в дельфи 2010.
Ваш проект не могу скомпилировать, так как у меня не установлен AlphaControls.

[Mrsqler]

Вот,убрал AlphaControls)кстати,когда компилирую ваш проект,то ругается на фразу
Application.MainFormOnTaskbar := True;

[Error] Project1.dpr(11): Undeclared identifier: 'MainFormOnTaskbar'

[BDA]

Эту строчку (Application.MainFormOnTaskbar := True; ) добавил Delphi 2010. Ее можно со спокойной совестью закомментировать или просто удалить.

УПД Все равно не компилируется
Еще остались sSkinProvider, sSkinManager, sPanel, sButton, sLabel, sEdit, sCheckBox, sComboBoxes

[artemavd]

Чо надо сделать-то? Перевести русский текст в транслит? С этим прекрасно справляется этот код (например):

const
  Table1='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  Table2 : array[1..66] of string =(
   'a','b','v','g','d','e','e','zh','z','i','i','k','l','m','n','o','p','r','s',
   't','u','f','kh','ts','ch','sh','shc','','y','','e','yu','ya ',
   'A','B','V','G','D','E','E','ZH','Z','I','I','K','L','M','N','O','P','R','S',
   'T','U','F','KH','TS','CH','SH','SHC','','Y','','E','YU','YA ');
...
var
 s,after,before: string;
 i: Integer;
 flWasChanges: Boolean;
begin
   before:=sEdit5.Text;
   after:=StringReplace(before,' ','_',[rfReplaceAll,rfIgnoreCase]);

   sEdit6.Text := '';
   s:=after;
   for i:=1 to Length(s) do
   if Pos(s[i],Table1) > 0 then
     begin
      sEdit6.Text := Trim(sEdit6.Text) + Table2[Pos(s[i],Table1)];
      flWasChanges := True
    end
   else
      sEdit6.Text := Trim(sEdit6.Text) + s[i];
end;

[BDA]

artemavd, нет, задумка другая.
Если неправильно набран текст (забыли переключить в русскую раскладку), то выделяем текст, нажимаем сочетание клавиш, и программа переводит в правильную раскладку.

[Mrsqler]

И текст переводится,только его в поле вставлять надо.А хотелось бы,чтобы выделенный текст переводился.Но у меня это нормально не работает(

[Mrsqler]

Всё еще актуально)Есть еще какие-нибудь способы переводить выделенный текст в других приложения?

[3D Hunter]

Делаем велосипед? Так уже есть все готовое, и новизной здесь не пахнет.
Punto Switcher, не?

[Mrsqler]

Например?Punto switcher? Он не очень удобный.Текст переводится в совсем ненужный мне момент.А здесь я сам смогу выделить текст и перевести его,если мне это действительно надо.
В принципе это и так уж есть.Только мне лень его в программу копировать, и там переводить.