Thema: Delphi [Eigene] Caption

Einzelnen Beitrag anzeigen

Benutzerbild von cherry
cherry

Registriert seit: 14. Nov 2005
561 Beiträge
 
RAD-Studio 2009 Ent
 
#5

Re: [Eigene] Caption

  Alt 13. Jun 2006, 09:33
Meine Propertys sehen so aus:

Delphi-Quellcode:
property ECatption: String read FECaption write SetECaption;
property ECatptionOver: String read FECaptionOver write SetECaptionOver;
property ECatptionDown: String read FECaptionDown write SetECaptionDown;
Ich verwende also nicht die schon vorhandene Property Caption, sondern
will diese selber machen, weil ich gleich drei brauche und mir aber std mässig
nur eine zur verfügung steht.

Zitat von mkinzler:
Wie sieht den dein Konstruktor aus?
Der sieht momentan so aus, funzt aber nicht!
Caption ist während Constructor-zeit irgendwie noch nicht verfügbar, es wird kein
Wert übergeben.

Und ich will das standardmässig der Name also z.B. Button1, Button2...
für alle Captions gesetzt wird.

Delphi-Quellcode:
constructor TEButton.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);

 DoubleBuffered := True;
 FEFont := TFont.Create;
 FEFontOver := TFont.Create;
 FEFontDown := TFont.Create;
 FEColor:=clWhite;
 FEColorOver:=clSilver;
 FEColorDown:=clGray;
 FEBrushStyle:=bsSolid;
 FEBrushStyleOver:=bsSolid;
 FEBrushStyleDown:=bsSolid;
 FEPenColor:=clSilver;
 FEPenColorOver:=clGray;
 FEPenColorDown:=clSilver;

[color=#005fff]
 ECaption:=Caption;
 ECaptionOver:=Caption;
 ECaptionDown:=Caption;
[/color]
 
 Width:=75;
 Height:=25;
 FMouseOver:=false;
 FMouseDown:=false;
 FEOnFocusedShow:=true;
 FEOnFocusedColor:=clAqua;
 FEOnDefaultShow:=true;
 FEOnDefaultColor:=clBlack;
 FEnemyRoundedW:=5;
 FEnemyRoundedH:=5;
 TabStop:=True;
 FActive:=FDefault;
end;
Ne Idee den Namen zu übergeben, sodass er nach dem rüberziehen der Komponente
auf meine Form bereits im OI steht?
Ist das nur mein Gefühl, oder ist die ganze Welt verrückt geworden!?
  Mit Zitat antworten Zitat