Tornar janela do word ativa. Como ?

Delphi

27/09/2003

fala galera ...
depois de dar o comando:

wordapp.visible:=true;

como fazer pra que a janela fique ativa (na frente da aplicaçao delphi), por que sempre aparece por tras (minimizado )....como traze-la pra frente ??
agradeço a ajuda


Echoesofpinkfloyd

Echoesofpinkfloyd

Curtidas 0

Respostas

Tchoninho

Tchoninho

27/09/2003

Experimente mandar a sua aplicação minimizar, desta forma:

wordapp.visible:=true;
Application.Minimize;

Não testei mas acho que funciona..


GOSTEI 0
Werlon Goulart

Werlon Goulart

27/09/2003

Este codigo testa se a Classe TfmMenu existe e se existir, torna o form ativo colocando-a em primeiro nivel na tela (na frente das outras telas).


if (Findwindow(´TfmMenu´,nil)<>0) then begin // Existe o form, mostra-o.
SetForegroundWindow(Findwindow(´TfmMenu´,nil)); //Seta o form como primeiro nivel.
ShowWindow(Findwindow(´TfmMenu´,nil),SW_SHOW); //Mostra o form.

Basta usar o Winsight32 (ws32.exe no diretorio do Bin do Delphi) pra ver qual a classe do Word.
Chame o Winsight32 e DEPOIS chame o Word pra ver na linha q foi criada o nome da classe.

Um abraço
Werlon Goulart


GOSTEI 0
Echoesofpinkfloyd

Echoesofpinkfloyd

27/09/2003

[quote:a22ccfd862=´Werlon Goulart´]Este codigo testa se a Classe TfmMenu existe e se existir, torna o form ativo colocando-a em primeiro nivel na tela (na frente das outras telas).


if (Findwindow(´TfmMenu´,nil)<>0) then begin // Existe o form, mostra-o.
SetForegroundWindow(Findwindow(´TfmMenu´,nil)); //Seta o form como primeiro nivel.
ShowWindow(Findwindow(´TfmMenu´,nil),SW_SHOW); //Mostra o form.

Basta usar o Winsight32 (ws32.exe no diretorio do Bin do Delphi) pra ver qual a classe do Word.
Chame o Winsight32 e DEPOIS chame o Word pra ver na linha q foi criada o nome da classe.

Um abraço
Werlon Goulart[/quote:a22ccfd862]

valeu mesmo .. vou tentar e qualquer coisa posto aqui .. abraços.


GOSTEI 0
POSTAR