Bild und Comboboxen

[Mokus]

Hey zusammen,

ich hab folgenden Fall.
Ich habe mit Kästchen. Darauf sind Comboboxen, diese Comboboxen sollen immer in den Kästchen bleiben. Das Bild wird über ein TImage eingebettet. Wenn nun aber das Bild Scaliert wird, via Panel über AlClient und dann mit einem Splitter bewegt , verschieben sich ebenfalls die Comboboxen. aber diese Scalieren ja nicht wie die Kästchen. Hat jemand ein Beispiel wie man das machen könnte? hab schon bisschen mit Anchors gespielt etc.
Hat jemand sowas schonmal gemacht ?

[Mokus]

closed


hatte falsch gerundet
Lösung :

Delphi-Quellcode:

procedure Panel1CanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  ComboBox3.left   := round(ComboBox3.left * (NewWidth / TPanel(Sender).Width));
end