Modern Bootstrap-style modal dialog for displaying messages with customizable buttons.
Dialog1.Title := 'Information'; Dialog1.Message := 'Settings have been saved'; Dialog1.MessageType := mtInformation; Dialog1.Buttons := dbOK; Dialog1.Execute;
Dialog1.Title := 'Confirm Delete'; Dialog1.Message := 'Are you sure you want to delete this item?'; Dialog1.MessageType := mtConfirmation; Dialog1.Buttons := dbYesNo; if Dialog1.Execute = mrYes then DeleteItem;
Dialog1.Title := 'Error'; Dialog1.Message := 'Connection failed: ' + E.Message; Dialog1.MessageType := mtError; Dialog1.Buttons := dbOK; Dialog1.Execute;
Dialog1.Title := 'Choose Action';
Dialog1.Message := 'What would you like to do?';
Dialog1.Buttons := dbCustom;
Dialog1.CustomButtons.Clear;
Dialog1.CustomButtons.Add('Save');
Dialog1.CustomButtons.Add('Discard');
Dialog1.CustomButtons.Add('Cancel');
case Dialog1.Execute of
mrYes: SaveChanges; // First button
mrNo: DiscardChanges; // Second button
mrCancel: Exit; // Third button
end;
Execute - Show dialog modally and return resultShow - Show dialog non-modallyHide - Close dialog programmaticallyOnButtonClick - Button clicked (before dialog closes)OnShow - Dialog appearsOnClose - Dialog dismissed