corector ortografico y Tedit+Combobox+etc..

[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