Detectar tipo de componente en aplicación externa

[[ElDioni]]

Hola, yo no se si entiendo lo que quieres hacer, puede que en este hilo encuentres un poco de luz.

http://www.clubdelphi.com/foros/showthread.php?t=26354

Saludos.

[BrunoBsso]

Empezado por ElDioni

Hola, yo no se si entiendo lo que quieres hacer, puede que en este hilo encuentres un poco de luz.

http://www.clubdelphi.com/foros/showthread.php?t=26354

Saludos.

Gracias ElDioni, pero lo que yo necesito es conocer el tipo de campo en una aplicación externa, y eso es para la aplicación propia.
El tema sería yo tengo mi aplicación A y además está abierta la aplicación B que no es mía.
Yo desde A hago que el cursor se posicione sobre un campo de texto en B, se hace doble click y por teoría el campo B.CampoDeTexto debe quedar seleccionado. La idea sería poder hacer A.IsCampoTexto(B.CampoFocuseado) para asegurarme que la ventana no se movió, que la velocidad de conexión no hizo que se "perdiera" el doble click y que el campo no se haya seleccionado, etc.
Voy a ver si encuentro alguna manera de hacer eso mediante el handle (que lo tengo).

Saludos.

[roman]

¿No te serviria usar GetFocus() para encontrar la ventana con el foco y luego GetClassName para encontrar el nombre de la clase de dicha ventana ?

// Saludos

[BrunoBsso]

Empezado por roman

¿No te serviria usar GetFocus() para encontrar la ventana con el foco y luego GetClassName para encontrar el nombre de la clase de dicha ventana ?

// Saludos

La ventana sé 100% que está focuseada, porque la abro yo programáticamente y además hice un método WaitUntilWindowOpen que me avisa cuando está abierta. Además, tengo el handle de la ventana siempre a mano. ¿Con GetClassName no obtendría solamente el nombre de la clase de la ventana? Yo necesito saber si el componente actual donde esté seteado el foco es un componente de texto o no.
La ventana que se abre tiene un campo tipo TEdit para "Nombre", un campo tipo TMemo para "Descripción", uno tipo TMemo para "Resultados" y tres botones. Yo sé que posiciono el cursor sobre el campo "Descripción" porque al hacer SetCursorPos(X,Y) uso otro método WaitUntilCursorPos(X, Y) para validarlo. Luego de eso simulo un doble click. El asunto es que no tengo un "WaitUntilTextAreaFocused", que eso sería lo que necesito. Al hacer el doble click (el campo ese de texto se activa con doble click) no tengo la certeza de que se hayan efectuado correctamente los 2 clicks, no tengo la certeza de que en esa ventana el foco esta seteado en ese componente.
Creo que no se entiende porque mientras lo escribo me parece que no puedo dejarlo claro jaja

Saludos.

[roman]

Un Edit también es una ventana. De hecho, todo TWinControl es una ventana, y sólo una ventana puede tener el foco. Entonces, si tienes un formulario con un Edit dentro y seleccionas éste, la ventana con el foco es el Edit, no el formulario.

Haz la prueba, poniendo este código en un SpeedButton (para que el clic en el botón no te mueva el foco):

Código Delphi [-]
var
  Buffer: array[Byte] of Char;

begin
  ZeroMemory(@Buffer, SizeOf(Buffer));
  GetClassName(GetFocus(), Buffer, 255);
  ShowMessage(Buffer);
end;

Verás que el nombre de lcase que obtienes es el del control seleccionado.

// Saludos

[BrunoBsso]

Empezado por roman

Un Edit también es una ventana. De hecho, todo TWinControl es una ventana, y sólo una ventana puede tener el foco. Entonces, si tienes un formulario con un Edit dentro y seleccionas éste, la ventana con el foco es el Edit, no el formulario.

Haz la prueba, poniendo este código en un SpeedButton (para que el clic en el botón no te mueva el foco):

Código Delphi [-]
var
  Buffer: array[Byte] of Char;

begin
  ZeroMemory(@Buffer, SizeOf(Buffer));
  GetClassName(GetFocus(), Buffer, 255);
  ShowMessage(Buffer);
end;

Verás que el nombre de lcase que obtienes es el del control seleccionado.

// Saludos

En este momento no puedo, pero ni bien pueda lo pruebo. No tenía idea que todo TWinControl era una ventana, me dejaste pasmado.
Mil gracias roman!