Selected = False wenn Click außerhalb Komponente

[sirius]

Du musst den Fokus schon noch setzen:

Delphi-Quellcode:

procedure TMyShape.Button(var msg:TMessage); 
begin 
  self.Shape.Selected := true; 
  self.SetFocus; //Die Zeile hier, ansonsten weis das Control ja gar nicht, dass du da warst und löst Exit nicht aus.
end;