?? diagonal.pas
字號(hào):
unit diagonal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TDiagonalForm = class(TForm)
GroupBox2: TGroupBox;
LeftDiagonal1: TCheckBox;
LeftDiagonal2: TCheckBox;
LeftDiagonal3: TCheckBox;
RightDiagonal3: TCheckBox;
RightDiagonal2: TCheckBox;
RightDiagonal1: TCheckBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ColorDialog1: TColorDialog;
p1: TPanel;
Label1: TLabel;
procedure p1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DFM}
procedure TDiagonalForm.p1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
p1.Color:=ColorDialog1.Color;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -