Dringend: Zweite Klausuraufgabe...

[Wagwan]

Also, die Aufgabe ist wiefolgt:

Erzeuge unter dem Themenschwerpunkt "Erweiterung der Eigenschaften von Standardobjekten in Delphi" ein "BluePanel". Das BluePanel soll eine vererbte Form des TPanels sein, welches lediglich blau ist.

Zu dieser Thematik, insbesondere dem Ändern der Farbe von Buttons, habe ich über die Suche schon viel gefunden. Allerdings beliefen sich die Lösungsansätze an Komplexität und Länge jenseits des in einer Klausur Forderbaren.

Gibt es eine kurze, einfache Lösung über die Property des Panels die Farbe zu ändern, oder ist die Aufgabenstellung so idiotisch, wie die zuvor gepostete?

THX again

[kiar]

hallo wagwan,

mal ein vorschlag, gib deinen lehrer den link von der delphipraxis, dann erspart du dir es immer verspätet deine hausaufgaben hier rein zu stellen.

durch den direkten link, kannst du glück haben, das schon einer deine hausaufgaben gemacht hat

raik

[alcaeus]

Leite die Klasse TBluePanel von TPanel ab, und setze im Constructor die Eigenschaft "Color" auf clBlue. Wie du eigene Klassen erstellst weißt du hoffentlich.

[toms]

Zitat:

Leite die Klasse TBluePanel von TPanel ab, und setze im Constructor die Eigenschaft "Color" auf clBlue

Sieht dann etwa so aus:

Delphi-Quellcode:

type
  TBluePanel = class(TPanel)
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TBluePanel.Create(AOwner: TComponent);
begin
  inherited;
  Color := clBlue;
end;

Testen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BluePanel: TBluePanel;
begin
  BluePanel :=  TBluePanel.Create(Self);
  BluePanel.Parent := Self;
end;

[alcaeus]

Zitat von toms:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BluePanel: TBluePanel;
begin
  BluePanel :=  TBluePanel.Create(Self);
  BluePanel.Parent := Self;
end;

Nicht eher:
BluePanel.Parent := Form1;

[Skiron]

ich würd dann noch einen Teil machen:

Delphi-Quellcode:

type
  TBluePanel = class(TPanel)
  protected
    property Color;
  public
    constructor Create(AOwner: TComponent); override;
  end;
...

damit kann man sie nicht mehr ändern, falls das auch gewünscht ist!

[kiar]

hallo thomas,

genau das meinte ich, der hinweis von alceus hätte meines erachtens vollkommen gereicht.

langsam wird das forum, zur hausaufgabenbeschaffung von info schülern genutzt. nichts gegen fragen, die schon auf ein gewissenen gedankengang schließen lassen, aber bloss

1. aufgabe
2. dringend
3. macht mal

so geht es wirklich nicht.

raik

[Christian Seehase]

Moin alcaeus,

Zitat von alcaeus:

Zitat von toms:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BluePanel: TBluePanel;
begin
  BluePanel :=  TBluePanel.Create(Self);
  BluePanel.Parent := Self;
end;

Nicht eher:
BluePanel.Parent := Form1;

In einer Methode von Form1 ist self = Form1

[Wagwan]

Ich würde hier nicht immer meine Hausaufgaben posten, wenn der Lehrer in der Lage wäre, mir die Thematik selbst zu erläutern. Das mit dem Direktlink scheint aber eine gute Idee zu sein. Der kann hier noch eine Menge lernen. Von den Basics mal abgesehen.
Fühlt Euch durch meine Anfragen bitte nicht belästigt. Irgendwann kann ich das ganze dann auch selber und entlaste somit diejenigen, die jetzt immer den Anfängern helfen "müssen".

Und Danke für die Hilfe

[alcaeus]

[OT]
Hmmmm....da hast du wirklich Recht, da können wir Daniel ja gleich Fragen ob er die DP vielleicht in ein Hausaufgabenlösungsforum umtaufen will
Ich weiß nicht, aber das riecht mir stark nach einem Eintrag in den AGB: Keine fertigen Lösungen mehr? Wobei das dann denen nicht mehr zugute kommt, die sich wirklich nicht auskennen und ein Programm für sich machen wollen...
[/OT]