zu blöd zum Property überschreiben?

[gmc616]

Hallo DP,

irgendwie steh ich grad auf'm Schlauch.

Ich möchte mir eine Label-Komponente basteln welches das Property Cursur im OI mit meinen default-Wert crSizeAll überschreibt.

Delphi-Quellcode:

Type TSizeLabel = class (TLabel)
  private
    FCursor: TCursor;
    procedure SetCursor(const Value: TCursor);
  published
    Property Cursor : TCursor read FCursor write SetCursor default crHandPoint;
end;

tut es aber nicht. Im OI bleibt die Eigenschaft crDefault.

Wie krieg ich das zum Freitag Nachmittag noch hin?

Danke und :hi:
gmc

[SirThornberry]

das default gibt nur an welcher Wert NICHT in der dfm gespeichert werden soll.
Standardmäßig ist das crDefault (muss nicht gespeichert werden weil der wert ja per default schon gesetzt ist).
Du musst noch den constructor überschreiben und dort den wert ändern.

[gmc616]

Sorry, aber der Schlau ist heute extrem Breit.

Das TLabel hat "von Hause" aus ja auch die Property Cursor.
Wie Überschreibe ich dann diesen Wert.

So geht nämlich nicht,

Delphi-Quellcode:

constructor TccUrlLabel.Create(AOwner: TComponent);
begin
  inherited;
  Inherited Cursor := FCursor;

end;

da, wie ich vermute, FCursor an dieser Stelle noch auf crDefault steht.

[Muetze1]

Hat SirThornberry schon alles geschrieben...

Delphi-Quellcode:

Type 
  TSizeLabel = class (TLabel)
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Cursor default crHandPoint;
  end;

....

constructor TSizeLabel.Create(AOwner: TComponent);
begin
  inherited;
   
  Cursor := crHandPoint;
end;

[gmc616]

Ah!! Am Montag Mittag macht das alles richtig Sinn. :oops:

Klar ... ! :wall:

Danke.