So funktioniert es ... 2 Zigaretten und nen Kaffee später
Delphi-Quellcode:
procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Sender is TShape then
begin
if TShape(Sender).Brush.Color = Clmaroon then
begin
TShape(Sender).Brush.Color := ClBlack;
exit;
end
else
begin
TShape(Sender).Brush.Color := ClMaroon;
exit;
end;
end;
end;