CaptionButton example
acCaptionButton
component
procedure
TForm1.CaptionButton1Pressed(Sender: TObject);
begin
CaptionButton4.Sign :=
'B'
;
end
;
procedure
TForm1.CaptionButton1Released(Sender: TObject);
begin
CaptionButton4.Sign :=
'A'
;
end
;