Hallo,
ich hoffe, dass ich den richtigen Bereich für mein Problem gewählt habe.
Das Problem:
Ich will zur Laufzeit einen Button auf einer Paintbox erstellen - z.B. an Position (0,0). Leider weiß ich aber nicht, was ich als Parent für den Button angeben kann/muss. Die Paintbox kann ich dafür nicht verwenden, da ich ansonsten die Fehlermeldung "Inkompatible Typen: TWinControl und TPaintBox" bekomme.
MyButton.Parent := MyPaintbox;
Wenn ich den Parent der Paintbox nehme (also die Hauptform), dann wird der Button natürlich nur solange an der richtigen Position angezeigt, solange sich die Paintbox an Position (0,0) der Hauptform befindet.
MyButton.Parent := MyPaintbox.Parent;
Sobald dem nicht mehr so ist, stimmt die Position des Buttons nicht mehr. Beginnt die Paintbox beispielsweise bei Position (100,100) dann liegt der Button außerhalb der Zeichenfläche. Eben an Position (0,0)
der Form.
Kann ich dieses Problem irgendwie anders umgehen als auf den Parent der Paintbox zuzugreifen, die Komponente Paintbox zu suchen und dann den Abstand auf die Position der Buttons zu addieren?
Delphi-Quellcode:
for i := 0 to MyPaintbox.Parent.ComponentCount-1 do
begin
if MyPaintbox.Parent.Components[i].ToString = 'TPaintBox' then
tmpZeichenflaeche := (MyPaintbox.Parent.Components[i] as TPaintBox);
end;
if Assigned(tmpZeichenflaeche) then
begin
AbstandTop := tmpZeichenflaeche.Top;
AbstandLeft := tmpZeichenflaeche.Left;
end;
MyButton.Left := 0 + AbstandLeft;
MyButton.Top := 0 + AbstandTop;
Das kann so ja eigentlich nicht die richtige Lösung sein.
Kann mir da vielleicht jemand eine bessere Variante vorschlagen?
Wenn das hier funktionieren würde wäre es mir eigentlich am liebsten
MyButton.Parent := MyPaintbox;
... Hoffentlich ist der Text oben auch verständlich.
Bin für jeden hilfreichen Beitrag dankbar.