Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
19. Mai 2005
hier mal eine Sechseckkomponente (farbe im Create weg machen und dann kannst du davon ableiten)
TSechsEck = class(TCustomControl)
protected
procedure SetParent(AParent: TWinControl); override;
public
constructor Create(AOwner: TComponent); override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
17. Mai 2005
du musst deine Komponente von einem nachfahren von TWinControl ableiten und dann cannst du mit CreatePolygonRgn den bereich setzen. Du müsstest also auch das SetBounds überschreiben und da die Bereiche neu setzen. Durch CreatePolygonRgn ist dann die Komponente auch wirklich sechseckig, so wie es eben auch Forms in verschiedenen formen gibt.