摘要： //获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender: TObject); begin Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end; //当点击 RadioGroup 中的第几个选项时... procedure TForm1.RadioGroup1Clic... 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button:... 阅读全文

摘要： //添加 Memo1、Label1、Label2、还有Button1 procedure TForm1.Button1Click(Sender: TObject); var s: string; i,sum,e,c,t: Integer; begin s := Memo1.Text; e := 0; c := 0; sum := Length(s); for i :... 阅读全文

摘要： //全以红色举例： //1. RGB 模式： Self.Color := $0000ff; //不过和HTML中的 #ff0000 是反的，应该叫 BGR。 //2. RGB 分值，譬如： Self.Color := RGB(255,0,0); //3. Delphi 中的标准模式： Self.Color := $000000ff; //其中低3位字节代表RGB(BGR)相应的颜色；... 阅读全文