TMain - Goethe Gymnasium Dortmund

procedure TMain.SchalterMouseDown(Sender: …………………);
begin
Color := clsilver
end;
procedure TMain.SchalterMouseUp(Sender: …………………….);
begin
Color := clblack
end;
procedure TMain.FormCreate(Sender: TObject);
begin
BT := TBuntTaster.Create(Main, clYellow);
BT.Parent := main;
BT.Width :=80;
BT.Height := 40;
BT.Left := 10;
BT.Top := Main.Height - 90;
BT.OnMouseDown := TasterMouseDown;
BT.OnMouseUp := TasterMouseUp;
BS := TBuntSchalter.Create(Main, clBlue);
With BS DO BEGIN
Parent := main;
Width :=80;
Height := 40;
show;
Left := 10 + BT.Width + 10;
Top := Main.Height - 90;
OnMouseDown := SchalterMouseDown;
OnMouseUp := SchalterMouseUp;
END;
end;
end.
39