Selected = False wenn Click außerhalb Komponente

[sirius]

Auf die Schnelle fällt mir nur das ein (ist sicherlich verbesserungswürdig):

Delphi-Quellcode:

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

//....

constructor Tshape1.create;
begin
  inherited create(Aowner);
  shape:=Tshape.Create(self);
  shape.Parent:=self;
  shape.Align:=alclient;
  shape.Enabled:=false;
  self.TabStop:=true;
end;

destructor Tshape1.destroy;
begin
  shape.Free;
  inherited;
end;

procedure TShape1.Exit;
begin
  showmessage('Exit');
end;

procedure TShape1.button;
begin
  self.SetFocus;
end;