Delphi: MenueItem aktiviert Checkbox - aber nicht vice versa

Falls Ihr zu faul zum entpacken seid:

unit Checkm_u; { Projekt CHECKM * Herwig Reidlinger }

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Menus;

type
  TFormCheckM = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    CheckBoxSystem: TCheckBox;
    CheckBoxMin: TCheckBox;
    CheckBoxMax: TCheckBox;
    RadioButtonDialog: TRadioButton;
    RadioButtonNone: TRadioButton;
    RadioButtonSingle: TRadioButton;
    RadioButtonSizeable: TRadioButton;
    MainMenu1: TMainMenu;
    Menu_Bordericon: TMenuItem;
    MenuSystem: TMenuItem;
    MenuMin: TMenuItem;
    MenuMax: TMenuItem;
    Menu_Borderstyle: TMenuItem;
    MenuDialog: TMenuItem;
    MenuNone: TMenuItem;
    MenuSingle: TMenuItem;
    MenuSizeable: TMenuItem;
    procedure CheckBoxClick(Sender: TObject);
    procedure RadioButtonClick(Sender: TObject);
    procedure MenuSystemClick(Sender: TObject);
    procedure MenuMinClick(Sender: TObject);
    procedure MenuMaxClick(Sender: TObject);
    procedure MenuStyleClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormCheckM: TFormCheckM;

implementation

{$R *.DFM}

procedure TFormCheckM.CheckBoxClick(Sender: TObject);
begin
   IF CheckBoxSystem.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons +
[biSystemMenu]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons -
[biSystemMenu];
   IF CheckBoxMin.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons +
[biMinimize]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons -
[biMinimize];
   IF CheckBoxMax.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons +
[biMaximize]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons -
[biMaximize];
   MenuSystem.Checked := CheckBoxSystem.Checked;
   MenuMin.Checked := CheckBoxMin.Checked;
   MenuMax.Checked := CheckBoxMax.Checked;
end;

procedure TFormCheckM.RadioButtonClick(Sender: TObject);
begin
   IF Sender = RadioButtonDialog   THEN FormCheckM.BorderStyle :=
bsDialog;
   IF Sender = RadioButtonNone     THEN FormCheckM.BorderStyle :=
bsNone;
   IF Sender = RadioButtonSingle   THEN FormCheckM.BorderStyle :=
bsSingle;
   IF Sender = RadioButtonSizeable THEN FormCheckM.BorderStyle :=
bsSizeable;
   MenuDialog.Checked := RadioButtonDialog.Checked;
   MenuNone.Checked := RadioButtonNone.Checked;
   MenuSingle.Checked := RadioButtonSingle.Checked;
   MenuSizeable.Checked := RadioButtonSizeable.Checked;
end;

procedure TFormCheckM.MenuSystemClick(Sender: TObject);
begin
   CheckBoxSystem.Checked := NOT CheckboxSystem.Checked;
end;

procedure TFormCheckM.MenuMinClick(Sender: TObject);
begin
   CheckBoxMin.Checked := NOT CheckboxMin.Checked;
end;

procedure TFormCheckM.MenuMaxClick(Sender: TObject);
begin
   CheckBoxMax.Checked := NOT CheckboxMax.Checked;
end;

procedure TFormCheckM.MenuStyleClick(Sender: TObject);
begin
   IF Sender = MenuDialog   THEN RadioButtonDialog.Checked := TRUE;
   IF Sender = MenuNone     THEN RadioButtonNone.Checked := TRUE;
   IF Sender = MenuSingle   THEN RadioButtonSingle.Checked := TRUE;
   IF Sender = MenuSizeable THEN RadioButtonSizeable.Checked := TRUE;
end;

end.

Hi,

das liegt einfach daran, dass die beiden Komponenten in der VCL von
Borland unterschiedlich programmiert wurden. Die CheckBox ruft bei
setzen der Eigenschaft "Checked" intern "SetChecked" auf, was
wiederum "State" über die Methode "SetState" setzt, wo dann die
Methode "Click" aufgerufen wird, welche ein "OnClick" auslöst. Das
MenuItem ruft in seiner "SetChecked"-Methode eine API-Funktion
"CheckMenuItem" auf (das liegt daran, dass das Menu in Delphi keine
"selbstgezeichnete" Komponente, sondern nur eine Schnittstelle zu
einem normalen Menü aus Windows ist), aber eben nicht die Methode
"Click" für das entsprechende Ereignis. Zur Verdeutlichung zwei
Auszüge aus der VCL:

procedure TCustomCheckBox.SetChecked(Value: Boolean);
begin
  if Value then State := cbChecked else State := cbUnchecked;
end;

procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
begin
  if FState <> Value then
  begin
    FState := Value;
    if HandleAllocated then
      SendMessage(Handle, BM_SETCHECK, Integer(FState), 0);
    if not ClicksDisabled then Click;
  end;
end;

----------

procedure TMenuItem.SetChecked(Value: Boolean);
begin
  if FChecked <> Value then
  begin
    FChecked := Value;
    if (FParent <> nil) and not (csReading in ComponentState) then
      CheckMenuItem(FParent.Handle, FCommand, MF_BYCOMMAND or
Checks[Value]);
    if Value and FRadioItem then
      TurnSiblingsOff;
  end;
end;

Gruß

Ralph