Also so:
Delphi-Quellcode:
procedure TFormKunden.bbChangePClick(Sender: TObject);
begin
DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, []);
if DM.tbKunden.Locate('Ind', qKunden.FieldByName('Ind').AsInteger, [])
then
DM.tbKunden.Edit;
Panel1.Visible := True;
end;
Öffnet er das Panel, das heisst das die Tabelle auf geht. Oder?