Caption ändern mit OnMouseDown

[DeddyH]

Also wenn schon, dann IMO eher 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;
  //Standard bei Leerstring setzen
  if s <> '' then
    c := s[1]
  else
    c := '_';
  if (Button = mbRight) then
   begin
    case c of
      '_': c := 'F';
      'F': c := '?';
      else c := '_';
    end;
   end;
  P_0_0.Caption := c;
end;