Leider habe ich keine Antwort erhalten. Allerdings habe ich selber eine Lösung gefunden. Für alle die irgendwann mal das gleiche Problem haben sollten:
Code:
procedure TMainForm.JvDesignPanelSelectionChange(Sender: TObject);
begin
if Length(JvDesignPanel.Surface.Selected)>0 then
begin
seTop.Value:= JvDesignPanel.Surface.Selection[JvDesignPanel.Surface.ComponentIndex].Top;
seLeft.Value:= JvDesignPanel.Surface.Selection[JvDesignPanel.Surface.ComponentIndex].Left;
seHeigth.Value:= JvDesignPanel.Surface.Selection[JvDesignPanel.Surface.ComponentIndex].Height;
seWidth.Value:= JvDesignPanel.Surface.Selection[JvDesignPanel.Surface.ComponentIndex].Width;
end;
end;
Das bedeutet um den Index des Ausgewählten Objektes herauszufinden verwenden man:
Code:
JvDesignPanel.Surface.ComponentIndex
MfG
Marcel.
(MrDelock)