Fórum Recuperar o valor da calculadora do windows 2 parte #276365
09/04/2005
0
http://forum.clubedelphi.net/viewtopic.php?t=43989&highlight=calculadora
onde seguindo a dica do Chico Gois as instruçoes para isto são :
procedure TForm1.Timer1Timer(Sender: TObject); var h: Thandle; s : string; i: Integer; begin //Procure pela calculadora H := FindWindow(´scicalc´, nil); //pegue o handle da caixa, ou seja, um filho que a calculadora h := getwindow(h,GW_CHILD); //Tamanho do Texto i:=SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1; // inicializar uma variável string com o tamanho do texto setLength(s, i); //agora, pegue o texto SendMessage(h, WM_GETTEXT, i, Integer(s)); //tratar o seu valor s := trim(s); //Exibi-lo Edit1.Text := s; end;
porem encontrei tb uma dica do nildo muito interresante neste outro tópico:
http://forum.clubedelphi.net/viewtopic.php?t=4735&highlight=calculadora
onde seguindo a dica do nildo , a gente coloca uma janela , dentro de um form , usando a seguinte instrução :
windows.SetParent( FindWindow( nil, ´Calculadora´ ), Form1.handle )
[color=red:c727634e97]Agora mais precisamente, é que entra a segunda parte desta dúvida...[/color:c727634e97]
Ao Colocar a janela dentro do form como fica o código para capturar
o valor da calculadora em um edit :cry: :cry: :cry:
Marco Salles
Curtir tópico
+ 0Posts
10/04/2005
Marco Salles
Gostei + 0
11/04/2005
Marco Salles
Gostei + 0
13/04/2005
Marco Salles
Gostei + 0
13/04/2005
Nildo
Gostei + 0
13/04/2005
Marco Salles
Fora do form a calculadora funciona, normalmente e o valor da calculadora e capturado num edit dentro do form...
Mas ao colocar a Calculadora dentro do form :
windows.SetParent( FindWindow( nil, ´Calculadora´ ), Form1.handle )
Ja não se consegue mais capturar o valor da calculadora, atraves dos códigos passados pelo Chico Goes
Esta faltando ajustar o Código passado pelo nildo Com o Código passado pelo Chico Goes :cry: :cry: :cry:
Gostei + 0
15/04/2005
Marco Salles
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)