?? mutidb.pas
字號:
unit MutiDb;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TfrmMutiDb = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1DblClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
function GetDbName() :Boolean;
end;
var
frmMutiDb: TfrmMutiDb;
implementation
uses Main;
{$R *.DFM}
function TfrmMutiDb.GetDbName() :Boolean;
var tsDbInfos :TStrings;
tsLine :string;
i,tn :integer;
begin
tsDbInfos :=TStringList.Create;
try
tsDbInfos.LoadFromFile('MutiDb.INI');
with StringGrid1 do
begin
Cells[0,0] :='眀甅
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -