RadioGroup OnContextPopup bug?

Det kan hende at du har enten har tildelt TPopupMenu.OnPopup prosedyren TRadioGroup.OnContextPopup, eller omvendt.
Da vil både TPopupMenu.OnPopup og TRadioGroup.OnContextPopup bli kjørt, dvs. det samme skjer 2 ganger.
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Hej DiZpel

Nej, jeg har ikke testet for det. Men der er ingen rester af noget som helst andet, når jeg kan genskabe "problemet" i en 100% frisk Application, der kun indeholder en Form og en RadioBroup-komponent med et par Items.

Booby2

Kode 

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 280
    Top = 80
    Width = 185
    Height = 105
    Caption = 'RadioGroup1'
    Items.Strings = (
      'Aaa'
      'Bbb'
      'Ccc')
    TabOrder = 0
    OnContextPopup = RadioGroup1ContextPopup
  end
end

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    procedure RadioGroup1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioGroup1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  InputBox('Overskriften','Ledeteksten','Startteksten');
end;

end.

Kode 

procedure TForm1.RadioGroup1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  S: String;
begin
  Handled := True;
  S := 'Startteksten';
  if InputQuery('Overskriften','Ledeteksten', S) then
    //brukeren klikket OK
    ShowMessage(S);
end;

Kode 

Parent controls receive an OnContextPopup event before their child controls. In addition, for many child controls, the default window procedure causes the parent control to receive an OnContextPopup event after the child control. As a result, when parent controls do not set Handled to true in an OnContextPopup event handler, the event handler may be called multiple times for each context menu invocation.