Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
17. Mai 2007
so gehts
type
TYourControl = class(TGraphicControl)
private
fmeinText: String;
procedure SetMeinText(AText: String);
public
procedure Paint(); override;
published
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
17. Mai 2007
ein GraphicControl ist von sich aus Transparent. Im Paint deiner Componente (welches du überschreiben musst) zeichnest du dann einfach dort wo was dargestellt werden soll. Hat sich etwas geändert rufst du Invalidate auf und schon wird dein Paint wieder ausgelöst.