TMain - Goethe Gymnasium Dortmund

constructor TBuntPanel.Create (AOwner: TComponent; Farbe: TColor);
begin
inherited Create(AOwner);
Color := Farbe
end;
procedure TBuntTaster.MouseDown (Button: TMouseButton; Shift: TShiftState; X,Y:
Integer);
begin
BevelInner := bvLowered; Caption := 'an';
inherited MouseDown(Button,Shift,X,Y) //Damit auch die externe Ereignisend;
methode aufgerufen wird.
procedure TBuntTaster.MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y:Integer);
begin
BevelInner := bvRaised; Caption := 'aus';
inherited MouseUp(Button,Shift,X,Y)
end;
//wegen externer Ereignismethode
constructor TBuntSchalter.Create(AOwner: TComponent; Farbe: TColor);
begin
inherited Create(AOwner, Farbe);
Caption := 'aus'; Gedrueckt := False
end;
procedure TBuntSchalter.MouseDown (Button: TMouseButton; Shift: TShiftState; X,Y:
Integer);
begin
IF Gedrueckt THEN begin
BevelOuter := bvRaised;
caption := 'aus';
inherited MouseUp(Button, Shift, X,Y)
end
ELSE begin
BevelOuter := bvLowered;
caption := 'an';
inherited MouseDown(Button, Shift, X,Y)
end;
Gedrueckt := Not Gedrueckt
end;
37