corector ortografico y Tedit+Combobox+etc..

[vroa74]

Hola:

he estado buscando algun tipo de componente o algo que me permita hacer coreccion ortografica en edit, combobox, memos etc.

he buscado Spell Checker para español mas sin embaro no he encontrado algo solido.
baje el http://www.luziusschneider.com/TSpellers.zip mas sin embargo no encuentro la forma de como usarlo aunque ya cori el ejemplo.

espero que me ayuden
antes de levantar este hilo busque prguntas anteriores de corrector ortografico, mas sin embargo no hay alguna respuesta en concreto hay muchas respuesta algo vagas.

[aeff]

hola, ¿no te gusta la idea de corregir la ortografía de lo que escribes en un edit por ejemplo a través de una automatización con MS Word?

¿no tienes idea de como hacerlo colega?

si te gusta esa idea, entonces podemos trabajar en equipo para darle solución a tu problemita


saludo,
aeff!!

[vroa74]

La verda es que si me gustaria mas no se como hacerlo, he consultado hay varios componentes que lo hacen.
mas sin embargo aun no se cual es el mas apropiado para esta necesidad.

[aeff]

hola, bueno, lo que te doy aqui es un invento realmente, pero creo que funciona bien, solo que este depende de que Word este instalado en la PC donde quieres correr tu programa y rectificar ortografia...

si necesitas otra cosa y piensas que te puedo ayudar entonces solo pregunta...

coloca un edit en tu form y un button y en el evento onclick del button pon esto:

uses ComObj, ClipBrd, ShellApi;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  WindowName: string;
  WindowHandle: Cardinal;
  WordApp, Document, Selection: OleVariant;
begin
  WordApp := CreateOleObject('Word.Application');
  Document := WordApp.Documents.Add;
  Selection := WordApp.Selection;
  Selection.TypeText(Edit1.Text);
  // Para que no salga la ventana del Word despues de revisar la gramtica/ortografia
  WindowName := WordApp.ActiveDocument.FullName + ' - ' + WordApp.Application.Caption;
  WindowHandle := 0;
  WindowHandle := FindWindow(nil, pChar(WindowName));
  SetWindowRgn(WindowHandle, CreateRectRgn(0,0,0,0), true);

  // Empezamos revisar la ortografia
  WordApp.ActiveDocument.CheckGrammar;
  Selection.WholeStory;
  Selection.Copy;
  Edit1.Text := Clipboard.AsText;
  // Mandamos a cerrar el Word con el programa TSkill
  ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
end;

espero que te sirva esto,
saludos

aeff!!

[Lizette]

Hola aeff! saludos, es justo lo que buscaba, pero como le puedo hacer para que me revise varios edits?? gracias