MyPanel und BorderStyle

[Jazzman_Marburg]

Hallo werte Gemeinde,
ich hab mal wieder ein Brett vor den Kopf.

Ich möchte einem selbst erzeugtem Panel (vorn TPanel abgeleitet) einige Eigenschaften beim Erzeugen verpassen -- sowas wie BorderStyle -- aber man läßt mich nicht ("Undefinierter Bezeichner bsSingle") -- was läuft denn hier falsch?

Delphi-Quellcode:

CONSTRUCTOR TSpielkarte.CREATE(Owner: TComponent);
BEGIN
  INHERITED CREATE(Owner);
  Self.OnClick := Click;

  ParentBackGround := true;
  BevelInner       := bvRaise; // Problem
  BevelOuter       := bvNone;  // Problem
  BorderStyle      := bsnone;  // Problem
  Ctl3D            := TRUE;

Das Ctl3D hingegen macht keine Schwierigkeiten. Tse.

Lieben Dank für Ideen/Kommentare

Gruß
Jazzman

[DeddyH]

Wie sieht denn Deine uses-Klausel aus? Units Forms und ExtCtrls sind eingebunden?

[Jazzman_Marburg]

Hier die USES-Klausel:

Delphi-Quellcode:

INTERFACE

USES Windows, Forms, SysUtils, Math, Controls, ExtCtrls, Graphics, Classes,
     Dialogs;

Und gleich dahinter die Klassen-Definition:

Delphi-Quellcode:

TYPE
  TSpielkarte = CLASS;

  TOnUmdrehen = PROCEDURE(Karte: TSpielkarte) OF OBJECT;

  { Die Klasse TSpielkarte ----------------------------------------------------}
  TSpielkarte = CLASS(TPanel)
  PRIVATE
    ...

Also ich denke die USES-Klausel ist ok -- aber der Compiler weigert sich...

Gruß
Jazzman

[DeddyH]

Bei mir lässt sich das kompilieren, der Fehler muss woanders stecken. Zeig doch mal die ganze Unit oder häng sie an, falls sie zu groß ist.

[edit] Kleine Korrektur: es heißt bvRaised, nicht, dass das nur an diesem Tippfehler lag. [/edit]

[Jazzman_Marburg]

Mist!

Du hattest völlig Recht!

Zunächst fehlte tatsächlich die Forms - Unit. Dann schlich sich der Syntax-Fehler ein. Als ich dann die Forms Unit dazutat, gings immer noch nicht, und ich wollte schon die Unit hochladen...

Also, die Forms Unit war die Ursache, und dann kam mein Unvermögen dazu!

Lieben Dank für Deine Mühe!

Schönen Gruß
Jazzman

[DeddyH]

Na siehste, alles wird gut

[Jazzman_Marburg]