Das geht, nur jetzt Create'd er sie beim zweiten Mal suchen nicht mehr.
Die Panels und Buttons erzeuge ich folgendermassen:
Btw: das Ganze betrifft das Ergebnisformular von einer Suche...
Delphi-Quellcode:
with TPanel.Create(Self) do
begin
Top := k;
Left := 8;
Height := 17;
Width := 340;
Alignment:= taLeftJustify;
if (MySQLDataset1.fieldByName('adr_vorname').AsString <> '') AND (MySQLDataset1.fieldByName('adr_nachname').AsString <> '') then
Caption := MySQLDataset1.fieldByName('adr_vorname').AsString +' '+MySQLDataset1.fieldByName('adr_nachname').AsString +' '+ MySQLDataset1.fieldByName('adr_strasse').AsString
else
Caption := MySQLDataset1.fieldByName('adr_institut').AsString +' '+ MySQLDataset1.fieldByName('adr_strasse').AsString;
Name := 'Panel' + IntToStr(i);
Parent := FrmAdrSearchFound.FrameSearchResults1;
end;
with TButton.Create(Self) do
begin
Top := k;
Left := 360;
Height := 17;
Width := 75;
Caption := 'bearbeiten';
Name := 'Btn' + MySQLDataset1.fieldByName('adr_id').AsString;
Tag := MySQLDataset1.fieldByName('adr_id').AsInteger;
Parent := FrmAdrSearchFound.FrameSearchResults1;
onClick := EditAdress;
end;