5 respuestas en este tema

[Mxidetre]

Saludos Amigos!

Pues la verdad es que como llevo un poco con delphi llevo un par de días atascado con esto. 

Mirar el problema viene cuando intento que me diga el parent de un componente que esta sobre otro componente.

Al clicar sobre un componente normal me dice su parent en una linea de una memo. Todo va bien si en el componente su parent es el form. Pero no he encontrado la forma recursiva, de si por ejemplo hay un panel2 sobre un panel 1, clikando sobre ese panel2 me diga que su parent es el panel1, y que es panel1 pertenece al form.

A ver si me podéis  echar una mano. Gracias por vuestro tiempo de antemano. 

Os Adjunto código.

delphi

procedure Tform1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AnalizaMensajes;
 end;
 
 procedure Tform1.AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
  var
    //Target: TControl;
    Point: TPoint;
    ctrl : TControl;
    x,y:integer;
 begin
    if Msg.message = WM_LBUTTONDOWN then begin
        Point := Msg.pt;
        x := ScreenToClient(Point).X;
        y := ScreenToClient(Point).Y;
        Memo1.Lines.Add(intToStr(x)+'-'+intToStr(y));
        ctrl := ControlAtPos(ScreenToClient(Point), true, true);
        if (ctrl <> nil) then
          memo1.lines.add(ctrl.Parent.name);
//Aqui es donde me he quedado atascado
        end
        else
      inherited;
 end;

[hanifnoor]

Mirar el problema viene cuando intento que me diga el parent de un componente que esta sobre otro componente.

Al clicar sobre un componente normal me dice su parent en una linea de una memo. Todo va bien si en el componente su parent es el form. Pero no he encontrado la forma recursiva, de si por ejemplo hay un panel2 sobre un panel 1, clikando sobre ese panel2 me diga que su parent es el panel1, y que es panel1 pertenece al form.

A ver si me podéis  echar una mano. Gracias por vuestro tiempo de antemano. 

[Rolphy Reyes]

Saludos.

Creo que lo que andas buscando es hacer una función recursiva, la propiedad Parent es del tipo TWinControl.  Una forma de realizar la función es preguntar hasta que la propiedad Parent sea igual a Form1 por ejemplo.

[Wilson]

Solo por curiosidad ¿Cual es el objetivo final de este procedimiento?. Si acaso es obtener la posición absoluta de un control anidado con respecto al screen entonces juega con las funciones o propiedades  ClientToScreen, ClientToParent, ClientHeight, ClientOrigin, ClientRect o ClientWidth.

Si es por otro motivo entonces ya miraremos como alcanzar lo que buscas.

Saludos.

[Sergio]

Tienes que ir tirando del parent hasta que este sea un TForm, así:

delphi

procedure Tform1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AnalizaMensajes;
 end;
 
procedure Tform1.AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
  var
    Point: TPoint;
    ctrl, MyParent : TControl;
    x,y:integer;
begin
    if Msg.message = WM_LBUTTONDOWN then begin
        Point := Msg.pt;
        x := ScreenToClient(Point).X;
        y := ScreenToClient(Point).Y;
        Memo1.Lines.Add(intToStr(x)+'-'+intToStr(y));
        ctrl := ControlAtPos(ScreenToClient(Point), true, true);
        if (ctrl <> nil) then begin
           MyParent:= Ctrl;
           while not (MyParent is TFom) do
             MyParent:= MyParent.parent;
           memo1.lines.add(MyParent.name);
        end;
      inherited;
    end;
 end;

[escafandra]

Echando un poco de mano a la API, quizás sea esto lo que buscas:

delphi

procedure Tform1.AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
var
  //Target: TControl;
  Point: TPoint;
  ctrl : TControl;
  x,y:integer;
begin
  if Msg.message = WM_LBUTTONDOWN then begin
    Point := Msg.pt;
    ctrl := FindControl(WindowFromPoint(Point));
    Point:= ScreenToClient(Point);
    Memo1.Lines.Add(intToStr(Point.x)+'-'+intToStr(Point.y));
    if(ctrl <> nil) then
      if (ctrl.Parent <> nil) then
        memo1.lines.add(ctrl.Parent.name)
      else
        memo1.lines.add('No Parent');
  end
  else
    inherited;
end;

Saludos.