Simplify more code using the new PopupComponent() function

This commit is contained in:
Ansgar Becker
2021-01-16 18:36:01 +01:00
parent b6c9cc1e02
commit 1a7cc67e37
2 changed files with 7 additions and 10 deletions

View File

@ -2383,7 +2383,7 @@ procedure TfrmTableEditor.popupPropertiesPopup(Sender: TObject);
var
Comp: TComponent;
begin
Comp := (Sender as TPopupMenu).PopupComponent;
Comp := PopupComponent(Sender);
if Comp = treeIndexes then begin
menuRemoveProperty.Enabled := btnRemoveIndex.Enabled;
menuClearProperties.Enabled := btnClearIndexes.Enabled;