HyperButtons bzw HyperPanels erstellen (Delphi Anfänger)

[Flashco]

Guten Tag.

Ich habe in meinem Informatik Kurs eine Aufgabe bekommen, in der ich einen HyperButton erstellen soll.
Der Theoretische Teil den ich mir bisher zusammengestellt habe ist:
Panel erzeugen, dem dann die fähigkeiten des Buttons vererben und erweitern. (Ich hoffe das ist auch Richtig..)

Mein Problem ist jetzt eher der Praktische Teil, da ich andauernd Fehlermeldungen bekomme, wie z.B bei diesen Zeilen:

Code:

  BEGIN
    inherited Create{(AOwner)};
    THyperPanel.Width := 100;
    THyperPanel.Height := 100;
    THyperPanel.Color:= clred;
  end;

Dazu kommen diese Fehlermeldungen:

Code:

[Fehler] Unit2.pas(17): Undefinierter Bezeichner: 'Width'
[Fehler] Unit2.pas(18): Undefinierter Bezeichner: 'Height'
[Fehler] Unit2.pas(19): Undefinierter Bezeichner: 'Color'

[Fehler]

Ich füge noch den Ordner als Anhang an (Falls das hilft) und hoffe auf schnelle antwort.
MfG Flashco.

[implementation]

Du schreibst THyperPanel.Width .
THyperPanel ist eine Klasse und hat nunmal keine Klasseneigenschaft "Width".
Aber da du die Eigenschaften ja erbst, kannst du lieber gleich einfach Width := ...; oder Self.Width := ...; schreiben - dann läuft's auch

THyperPanel ist ja nur die Klasse, und wenn du einfach THyperPanel.Width schreibst, weiß der Compiler doch nicht, welches HyperPanel du meinst. Das, das gerade erstellt wird? Dann musst du das auch so schreiben, könnte etwa THyperPanel(self).Width oder (self as THyperPanel).Width aussehen. Und nunja, der Cast ist hier ziemlich redundant, also am besten gleich einfach Self.Width oder Width .

[Flashco]

Zunächst einmal: Danke für die schnelle Antwort.
Jedoch:
Ich habe jetzt in den entsprechenden Zeilen versucht "THyperPanel" durch "self" zu ersetzten, jedoch kommt immernoch die selbe Fehlermeldung.

[mkinzler]

Delphi-Quellcode:

type
 THyperPanel = class ( TPanel)
   public
     constructor Create(AOwner:TComponent);override;
     procedure HyperPanelClick;
  end;

implementation

constructor THyperPanel.Create(AOwner: TComponent);
BEGIN
    inherited Create(AOwner);
    Width := 100;
    Height := 100;
    Color:= clred;
    BorderStyle:= bsSingle;

//    BevelWidth:=3;
end;

[Flashco]

@mkinzler

Bei diesem Lösungsvorschlag bekomme ich die bereits vorhandenen Fehlermeldungen:

[Fehler] Unit2.pas(17): Undefinierter Bezeichner: 'Width' (usw)

UND dazu noch die Meldungen:

Code:

[Fehler] Unit2.pas(6): Undefinierter Bezeichner: 'TPanel'
[Fehler] Unit2.pas(8): Undefinierter Bezeichner: 'TComponent'
[Fehler] Unit2.pas(16): Zu viele Parameter

[mkinzler]

Ergänze die Uses um ExtCtrls

[DeddyH]

Dann fehlt wohl mindestens ExtCtrls in der uses-Klausel.

[edit] Classes anscheinend auch, sonst wäre zumindest TComponent bekannt. [/edit]

[Flashco]

Um Sicherzugehen:
Meint ihr die Uses in Unit1? Falls ja: Stehen bereits drin.
Falls nein: Soll ich "Uses" in Unit 2 hinzufügen?

[edit] Durch Testen hat sich DIE Frage geklärt, ich musste eine Uses List in Unit2 einfügen. Dies löst die Probleme zunächst bis Height.
Schonmal riesiegen dank dafür. Als nächstes scheint jeodch auch "clRed" sowie "bsSingle" (Für bsSingle bräuchte ich vieleicht auch eine kleine erklärung was dieses genau macht bzw BorderStyle ansich, da ich dies (Auf gut Glück) aus der Aufgabe heraus kopiert habe obwohl ich nicht weiß was es macht(Ebenso das zur Zeit ausgeklammerte BevelWidth: = 3 ; ) ) ein undefinierter Bezeichner zu sein.

[DeddyH]

Woher sollen wir denn wissen, was in Unit1 bzw Unit2 steht/deklariert wurde?

[mkinzler]

In der Unit, in der der Fehler auftritt: Unit2

@Detlef: Der Source ist im 1. Beitrag angehängt