- procedure TfrmMain.btnAddProfile_AddHardwareClick(Sender: TObject);
- var
- I, Idx : Integer;
- begin
- // Add Hardware Panel Parent von AddProfile nehmen
- Idx := nbMasks.Pages.IndexOf('AddConsultProfile');
- panelAddHardware.Parent := nbMasks.Controls[Idx].Parent;
- panelAddHardware.Visible := True;
- // Add Profile Maske deaktivieren
- panelAddProfile.Enabled := False;