TMain - Goethe Gymnasium Dortmund

unit mFangPanel;
interface
USES ExtCtrls, Classes, Graphics, Controls, Forms;
Type
TFangPanel = class(TPanel)
public
constructor Create(AOwner: TComponent); override;
end;
TMine = class(TPanel)
public
constructor Create(AOwner: TComponent); override;
end;
implementation
constructor TFangPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clYellow;
width := 30;
height := 30;
Caption := 'F'
end;
constructor TMine.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clRed;
width := 30;
height := 30;
Caption := 'M'
end;
end.
28