aboutdelphiarea.pas

来自「很不错的绘制矢量图的控件。还有一个使用控件的例子。delphi7以上才可安装」· PAS 代码 · 共 32 行

unit AboutDelphiArea;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TAbout = class(TForm)
    Bevel1: TBevel;
    btnOk: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Shape1: TShape;
    procedure FormCreate(Sender: TObject);
  end;


implementation

{$R *.dfm}

procedure TAbout.FormCreate(Sender: TObject);
begin
  Left := Screen.Width - Width - 20;
end;

end.