Sender abfragen klappt nicht richtig

[DeddyH]

Und wenn man sich etwas mehr Tipparbeit macht, sollte auch diese Einstellung keine Rolle mehr spielen:

Delphi-Quellcode:

function TDrawPadProperties.GetAll(Sender: TObject): integer; // ****
begin
  Result := 0;
  if not FSimple then
  begin
    if (Sender is TCheckBox) then
      begin
        if TCheckBox(Sender).Checked and (Pos('_MultiProp', TControl(Sender).Name) > 0) then
          Result := 1;
      end
    else if (Sender is TPropCheckBox) then
      begin
        if TPropCheckBox(Sender).CheckBox.Checked then
          Result := 2;
      end
    else if (Sender is TPropEdit) then
      begin
        if TPropEdit(Sender).CheckBox.Checked then
          Result := 3;
      end
    else if (Sender is TPropComboBox) then
      begin
        if TPropComboBox(Sender).CheckBox.Checked then
          Result := 4;
      end;
  end;
  // ShowMessage(TControl(Sender).Name);
end;