Caption ändern mit OnMouseDown

Thema durchsuchen

Ansicht

Themen-Optionen

Caption ändern mit OnMouseDown

Ein Thema von saii · begonnen am 20. Feb 2015 · letzter Beitrag vom 20. Feb 2015

Vorheriger Beitrag

Nächster Beitrag

saii

Registriert seit: 20. Feb 2015
22 Beiträge

Caption ändern mit OnMouseDown

20. Feb 2015, 10:48

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;