Hallo nochmal,
ich habe (leider) grad kein Delphi installiert, vlt. hilft dir das aber trotzdem. Ich habe aus dem Code aus dem Beispiel einfach eine kleine Klasse erstellt, die könnte zum Beispiel so aussehen:
Delphi-Quellcode:
TrwCloseButton = class(TSpeedButton)
private
FHotTrack: Boolean;
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
property HotTrack: Boolean read FHotTrack write FHotTrack default True;
end;
Da das Objekt rwCloseButton von TSpeedButton abgeleitet ist, verfügt es auch über eine OnClick() Prozedur, die zum Beispiel wie folgt aussehen kann:
Delphi-Quellcode:
procedure TForm.rwCloseButtonClick(Sender: TObject);
begin
(Sender as TrwCloseButton).Visible := false;
//Tab schließen etc pp
end;
Hoffe geholfen zu haben.
