Caption ändern mit OnMouseDown

[saii]

Ich möchte die Caption eines Panels mit einem Rechtsklick ändern, aber Ich weiß nicht, warum mein Versuch fehlschlägt.

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:='_';
end;

end;
P_0_0.Caption:=c;

end;

Bitte nicht zu kompliziert. Bin auf Schulniveau
Und entschuldugt bitte, falls mein Beitrag im falschen Thema ist. Bin neu hier.

[Zoot]

Und was geht nicht?

[DeddyH]

Bei mir funktioniert das. Ist der EventHandler auch dem Ereignis zugewiesen (Objektinspektor)?

[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;

[baumina]

Interessant wäre welche Caption das Panel ganz zu Anfang hat. Wenn das erste Zeichen kein _, F oder ? ist, dann klappt das nicht. Ansonsten müssts klappen.

[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;

[BadenPower]

Zitat von DeddyH:

Also wenn schon, dann IMO eher so:

Spielverderber.


Ich wollte doch nur auf die nächste Frage warten, die dann gelautet hätte:

"Ich bekomme eine Zugriffverletzung" in der Zeile:c := s[1];

[DeddyH]

Man muss die Threads ja nicht künstlich in die Länge ziehen, es gibt schon genug, wo seitenweise über Kleinigkeiten diskutiert wird.

[BadenPower]

Zitat von DeddyH:

Man muss die Threads ja nicht künstlich in die Länge ziehen, es gibt schon genug, wo seitenweise über Kleinigkeiten diskutiert wird.

Da hast Du allerdings recht.


Aber der Lerneffekt für "Greife nie auf Dinge zu, die eventuell nicht da sind." wäre größer gewesen.

Jetzt hat er eine Lösung und weiss warscheinlich gar nicht, wo ohne die If-Abfrage das Problem gewesen wäre.