mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 06:43:49 +02:00
9 lines
327 B
ObjectPascal
9 lines
327 B
ObjectPascal
{ This example uses a check box on a form. When the application runs,
|
|
the check box is initially checked. When the user clicks it,
|
|
the check box is unchecked. Clicking it again grays the check box. }
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
Checkbox1.AllowGrayed := True;
|
|
Checkbox1.State := cbChecked;
|
|
end;
|