Hallo Susanne,
ein paar Anmerkungen zu deinem folgenden Code-Fragment:
Delphi-Quellcode:
// ...
// if PtInRect(a_Gbx[iii].BoundsRect, Point(Left, Top)) then
// oder zumindest: ... (Left <= i_GbX + i_GbB) ... etc.
if (Left >= i_GbX) and (Left<= i_GbB) and (Top >= i_GbY) and (Top<= i_GbH) then
begin
// GroupBox nur dann als Owner von Label festlegen, wenn Label
// vom Destruktor der GroupBox zerstört werden soll.
a_Lbl[i] := TLabel.Create(a_Gbx [iii]);
// Parent muss immer gesetzt werden ...
a_Lbl[i].Parent := a_Gbx[iii];
a_Lbl[i].Font.Size:= 10;
a_Lbl[i].Left := Left
a_Lbl[i].Top := Top ;
a_Lbl[i].BringToFront;
// Nix zu sehen, weil Caption fehlt ...
break;
end else
begin
a_Lbl[i] := TLabel.Create(Form2);
a_Lbl[i].Font.Size:= 10;
// Parent muss immer gesetzt werden ...
a_Lbl[i].Parent := Form2; // hier besser: self
end;
end;
Grüße vom marabu