Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Apollonius,
12. Apr 2008
Nein, das ist eine schlechte Idee. Dann musst du nämlich immer Casts durchführen, um mit dieser Klasse zu arbeiten, gleicher Name hin oder her (übrigens: Das muss Graphics.TCanvas in der Vererbungsklammer heißen).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Apollonius,
12. Apr 2008
In Turbo Explorer gibt es Class Helper, also kannst du so vorgehen:
type
TCanvasCircleHelper = class helper for TCanvas
procedure Circle(X, Y, Radius: Integer);
end;
procedure TCanvasCircleHelper.Circle(X, Y, Radius: Integer);
begin
//Implementierung
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Apollonius,
12. Apr 2008
Das wäre mal ein klassischer Einsatzfall für Class Helper. Vereerbung ist ungünstig, da man dann von TCanvas abgeleitete Klassen erst casten müsste, was unschön wäre. Oder man könnte eine normale Prozedur nehmen, müsste dann aber Self explizit und nicht mit der Punkt-Syntax übergeben. Welche Delphi-Version hast du denn? Class Helper gibt es ab Delphi 2006 (soweit ich weiß) Korrektur: in Delphi...