unit2.pas

来自「用来学习怎样设置用户界面的StatusBar,以及StatusBar的显示文字,」· PAS 代码 · 共 43 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    RichEdit1: TRichEdit;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure RichEdit1Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='修改';
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
StatusBar1.Panels[1].Text:='工程名称：'+adotable1.Fieldbyname('gcmc').AsString;
end;

end.