Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#107: How can I add a custom control in standard dialog?

Today I found a good example how we can add a some control in standard MessageDialog.

For example, we have a some dialog for confirmation but user can check a checkbox (Don't show this message again) and in the next time this dialog will not show.

The idea of realization in the next:
1. we must create a dialog using CreateMessageDialog
2. this function will return a form object with dialog
3. in this object we can add a checkbox
4. show diallog using ShowModal
5. to check a result and process a state of our checkbox
6. to destroy a created checkbox and dialog object

View a source:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  AMsgDialog: TForm; 
  ACheckBox: TCheckBox; 
begin 
  AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning,
[mbYes, mbNo]); 
  ACheckBox := TCheckBox.Create(AMsgDialog); 
  with AMsgDialog do 
    try 
      Caption := 'Dialog Title' ; 
      Height := 169; 

      with ACheckBox do 
      begin 
        Parent := AMsgDialog; 
        Caption := 'Don''t show me again.'; 
        Top := 121; 
        Left := 8; 
      end; 

      if (ShowModal = ID_YES) then
      begin
        if ACheckBox.Checked then 
        begin 
          //... 
        end; 
        //... some additional processing
      end; 
    finally 
      ACheckBox.Free; 
      Free; 
    end; 
end;

Published: December 7, 2000

See also

	Excel Web-stream
	ABA Document Convert
	ABA Picture Convert
	MAPIMail
	Fast Document Viewer
	Paradox Viewer
	Mail parser (ActiveX)
	Clarion to Text converter
	Word Web-stream
	DBISAM Password Recovery

Contact to webmaster