main.pas

一个画饼图控件,

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, Pies, Spin;

type
  TMainForm = class(TForm)
    StatusLine: TStatusBar;
    ExitButton: TButton;
    Pie1: TPie;
    Pie2: TPie;
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
  Close();
end;

end.