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.