Dringend: Zweite Klausuraufgabe...

[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;