Selected = False wenn Click außerhalb Komponente

[sirius]

Delphi-Quellcode:

  with self.Shape do begin 
    Parent:= self; 
    Enabled := false; //sonst liegt das Shape über unserem Twincontrol und nix funktioniert
    Shape := stProzess; 
    {Left  := 100; 
    Top   := 100; 
    Height:= 100; 
    Width := 100;}
    align := alclient; //reicht und dann musst du nur von aussen, die Größe von Twincontrol anpassen 
    Brush.Color := $005555FF; 
    Show; 
  end;

Edit: Du benutzt ja TShape nicht wirklich.
Dann anders: Lass das mit dem TmyShape und nehme Exit und Button mit in TShape1 und leitest das von TCustomControl (Nachfahr von Twincontrol) ab.