Hallo,
ich habe mal wieder etwas ganz banales für euch...
Ich schreibe mir eine kleine Erweiterung für TEdit (Angehängtes Label mit ein paar optischen Verschönerungen). Um das Ganze jetzt perfekt zu machen, hätte ich gerne noch das erstens abhängig von Edit.Enabled das Label die Farbe ändert und zweitens wenn Edit.Focused die Farbe des Editfeldes geändert wird. Im Prinzip recht einfach, wenn man weiß, welche Methoden man überschreiben muss. Aber welche?
Delphi-Quellcode:
TXTEdit = class(TEdit)
private
FLabeled: Boolean;
FCaption: TCaption;
FLabel: TXTEditLabel;
procedure SetLabeled(Value: Boolean);
procedure SetCaption(Value: TCaption);
public
constructor Create(AOwner: TComponent; AParent: TWinControl);
property Labeled: Boolean read FLabeled write SetLabeled;
property Caption: TCaption read FCaption write SetCaption;
end;