Ver el tipo al que pertenece una variable u objeto

[[maeyanes]]

Hola...

Para saber de que tipo es cierto objeto puedes usar el operador is:

Código Delphi [-]
// Preguntamos si cierto objeto es un descendiente de TCustomEdit:
if Edit1 is TCustomEdit then
  ShowMessage('Desciende de TCustomEdit');

Espero que te sirva para aclarar tu duda.


Saludos...

[elarys]

me ganaste de mano apurado

[ecfisa]

Hola.

Tal como dice maeyanes el operador is te permite averiguar que tipo de objeto es el actual,
pero tiene un inconveniente: aceptaría como TButton a un descendiente de él. (Como bién lo
aclara maeyanes en la línea de comentario).
Para saber exactamente cuál es el tipo del componente tendrías que usar ClassType para averiguarlo.

Un ejemplo:

procedure TForm1.ShowTipoCtrl;
var
  i: Integer;
  TC: TClass;
begin
  for i:= ControlCount -1 downto 0 do
  begin
    TC:= Controls[i].ClassType;
    if TC = TButton  then ShowMessage('TButton');
    if TC = TLabel then  ShowMessage('TLabel');
    if TC = TButtonExt then ShowMessage('TButtonExt')
  end
end;

Saludos.