jsj_DELPHI基本语法(7)

delphi网络资源总结,话了重点,方便阅读,记忆

True False Boolean ColorDialog Name ChangeColor onClick Shortint -128 127 Shortint 7 300 300 Shortint procedure

TForm1.ChangeColorClick(Sender: TObject); (

Options|Project Compiler Options Page Range begin

if ColorDialog1.Execute then Form1.Color := ColorDialog1.Color else

Form1.Color := clRed; end; Boolean Execute OK ColorDialog.Execute True

Form1.Color ColorDialog1.Color Cancel False

2.1.6

Object Pascal