Button auf verschobener Paintbox erstellen

[himitsu]

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
  ...

Ich hoffe du hattest tmpZeichenflaeche auch ordentlich initialisiert?
Und was wäre, wenn es mehrere TPaintBoxen gäbe?

Ich würde dir auch davon abraten ToString für die Typenprüfung zu verwenden.
Um an den Namen der Klasse zu kommen, verwendet man natürlich ClassName, denn in ToString würde z.B. eine "ordentliche" Zahlen- oder Text-Klasse natürlich ihren Wert zurückgeben.

Delphi-Quellcode:

// also so
if MyPaintbox.Parent.Components[i].ClassName = 'TPaintBox' then

// in Wirklichkeit wolltest du allerdings den Typ prüfen (nur genau TPaintBox)
if MyPaintbox.Parent.Components[i].ClassType = TPaintBox then

// aber eigentlich machen es alle so (TPaintBox und Nachfahren)
if MyPaintbox.Parent.Components[i] is TPaintBox then



// Und wenn jetzt noch jemand auf folgende Idee kommt, dann ist demjenigen eigentlich eh nicht mehr zu helfen :stupid:
// PS: Genau das hast du aber, im Prinzip gemacht, (wie schon erwähnt wurde)
// allerdings mit dem Problem, daß bei mehrereren PaintBox ausversehn die Falsche genommen werden könnte.
if MyPaintbox.Parent.Components[i] = MyPaintbox then