Caption ändern mit OnMouseDown

[BadenPower]

Funktioniert aber nur, wenn das 1. Zeiche von P_0_0.Caption ein 'F', '_' oder '?' ist.

Wenn das 1. Zeichen auch etwas anderes sein konnte, dann so:

Delphi-Quellcode:

procedure TForm1.P_0_0MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
   s: string;
   c: char;
begin
  s := P_0_0.Caption;
  c := s[1];
  if (Button = mbRight) then
   begin
    case c of
      '_': c := 'F';
      'F': c := '?';
      '?': c := '_';
      else c := '_';   // <- hinzufügen
    end;
   end;
  P_0_0.Caption := c;
end;