TTMSFNCLabelEdit.OnAccept Event
Fires when the user confirms the edited value.
API unit family: TMSFNCLabelEdit
Declaring type: TTMSFNCLabelEdit
Inherited from: TTMSFNCCustomLabelEdit
Type: TNotifyEvent
Syntax
property OnAccept: TNotifyEvent;
__property System::Classes::TNotifyEvent OnAccept = {read=FOnAccept, write=FOnAccept};
Usage examples
Handle commit and cancel
Reacts when the user accepts or cancels an edit.
procedure TForm1.ConfigureLabelEditEvents;
begin
TMSFNCLabelEdit1.OnAccept := TMSFNCLabelEdit1Accept;
TMSFNCLabelEdit1.OnCancel := TMSFNCLabelEdit1Cancel;
end;
procedure TForm1.TMSFNCLabelEdit1Accept(Sender: TObject);
begin
Caption := TMSFNCLabelEdit1.Text;
end;
procedure TForm1.TMSFNCLabelEdit1Cancel(Sender: TObject);
begin
StatusLabel.Text := 'Edit canceled.';
end;
void __fastcall TForm1::ConfigureLabelEditEvents()
{
TMSFNCLabelEdit1->OnAccept = TMSFNCLabelEdit1Accept;
TMSFNCLabelEdit1->OnCancel = TMSFNCLabelEdit1Cancel;
}
void __fastcall TForm1::TMSFNCLabelEdit1Accept(TObject *Sender)
{
Caption = TMSFNCLabelEdit1->Text;
}
void __fastcall TForm1::TMSFNCLabelEdit1Cancel(TObject *Sender)
{
StatusLabel->Text = "Edit canceled.";
}