TMain - Goethe Gymnasium Dortmund

unit mPanel4; ……..
uses ……, mPanelDemo, StdCtrls;
type TMain = class(TForm)
BtNeuesPanel: TButton;
procedure BtNeuesPanelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
BP: TBuntPanel;
ZP: TZufallPanel;
Nummer: INTEGER;
end;
var Main: TMain;
implementation…………
procedure TMain.BtNeuesPanelClick(Sender: TObject);
Var Farbe: TColor;
begin
Randomize;
Farbe := Random($FFFFFF);
INC(Nummer);
ZP := TZufallPanel.Create(main,Farbe,Nummer);
ZP.Parent := main;
ZP.Left := Random(Width-ZP.Width);
ZP.Top := Random(Height-ZP.Height)
end;
procedure TMain.FormCreate(Sender: TObject);
begin
Nummer := 0;
end;
end.
26