Danke für die Hinweise. Mir war klar das die Inforamtionen im private Teil nicht angezeigt werden, alllerdings verstehe ich noch nicht ganz warum der <summery> Teil der Klasse nicht im Projekt angezeigt wird. Ich hab noch etwas rumprobiert, dabei ist mir aufgefallen wenn ich mein Packege in einen Extraordner im Projekt befindet und die dazugehörende .pas Datei (von der Komponente) im Projektordner liegt wird mir mein <summary> Teil angezeigt. Doch wenn ich Mein
Package und meine dazu gehörige .pas Datei auserhalb des Projektes liegen hab wird es wieder nicht angezeigt. An Such- und Bibliothekspfad kann es nicht liegen da ich diese schon hinzugefügt habe.
Delphi-Quellcode:
unit LabelKoT;
interface
uses
Winapi.Messages,
Vcl.StdCtrls,
Vcl.Dialogs,
Vcl.Graphics,
Winapi.Windows,
Winapi.ShellApi, System.SysUtils, System.Classes,
Vcl.Controls,
Vcl.Forms,
Vcl.ExtCtrls;
type
/// <summary>
/// TLabelKoT kann ein Link einbinden und dies mit einer
/// Markierung des Labels mit hilfe einer Beliebigen Farbe angezeigt werden.
///</summary>
TLabelKoT =
class(TLabel)
private
FFarbe: TColor;
FLink: UnicodeString;
FFarbeOld: TColor;
///<summary> Sobald sich der Mauszeiger über das Label bewegt wird es makiert.</summary>
procedure CMMouseEnter(
var Message: TMessage);
message CM_MOUSEENTER;
///<summary> Sobald der Mauszeiger das Label verlässt wird es in seine Standard Farbe zurück gesetzt.
///(Es spielt keined Rolle welche Farbe, es wird immer die benutzt die der Benutzer einstellt)</summary>
procedure CMMouseLeave(
var Message: TMessage);
message CM_MOUSELEAVE;
{ Private-Deklarationen }
protected
/// <summary>Durch einen Click auf das Label öffnet sich der darin eingebundene Link.(Wenn keiner eingebunden ist öffnet sich die Homepage von MSC)</summary>
procedure Click;
override;
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
property Farbe: TColor
read FFarbe
write FFarbe;
property Link: UnicodeString
read FLink
write FLink;
property OnClick;
property OnMouseEnter;
property OnMouseLeave;
{ Published-Deklarationen }
end;