Selected = False wenn Click außerhalb Komponente

[sirius]

Vielleicht solltest du eher ein Twincontrol um dein TShape1 bauen. Also du machst dein Tshape1 wie gehabt, veröffnetlichst dann aber Tmyshape:

Delphi-Quellcode:

type 
  TShape1 = class(TShape) 
  private 
    { Private declarations } 
    FShape    : TShapeType; 
    FCaption  : String; 
//...
end;


type TMyShape=class(Twincontrol) 
       Shape:TShape1; 
       procedure Exit(var msg:TMessage);message cm_exit; 
       procedure Button(var msg:TMessage);message wm_lbuttondown; 
       constructor create(Aowner:Tcomponent);override; 
       destructor destroy; 
end;

Aber vielleicht gibts auch noch viel bessere Ideen...