Demonstrates how to use CheckBox in Delphi

Demonstrates how to use CheckBox in Delphi

This example demonstrates how to use CheckBox in Delphi.

Update button - on click event.

procedure TForm1.Button1Click(Sender: TObject);
begin
      { Clear previous font style, this step is not necessary }
      Panel1.Font.Style:=[];

      { Check for Bold option }
      if CheckBox1.Checked Then
           Panel1.Font.Style:=Panel1.Font.Style+[fsBold]
      Else
           Panel1.Font.Style:=Panel1.Font.Style-[fsBold];
      { Check for Italic option }  

      if CheckBox2.Checked Then
           Panel1.Font.Style:=Panel1.Font.Style+[fsItalic]
       Else
           Panel1.Font.Style:=Panel1.Font.Style-[fsItalic];
       { Check fro underline option } 

       if CheckBox3.Checked Then
           Panel1.Font.Style:=Panel1.Font.Style+[fsUnderline]
       Else
           Panel1.Font.Style:=Panel1.Font.Style-[fsUnderline];
end;

Download This Delphi Tutorials.

Download materials for this article (Delphi - Tutorials)

CheckBox.zip
       File size: 4 KB, File type: zip
       Total downloads: 516, Upload date: February 02 - 2009

 YES, I accept the Terms and Conditions and I acknowledge that I have reviewed and understood the agreement.

andy :: May 27-2010 :: 05:42 AM

can u tell me how to use itu for link to other form?

Leave a comment