?? realtyf63cc.pas
字號:
unit RealtyF63CC;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, Menus, ImgList, ToolWin;
type
Tf_RealtyF63CC = class(TForm)
L2: TLabel;
Label1: TLabel;
edit2: TEdit;
Label4: TLabel;
edit1: TEdit;
Button1: TButton;
Button7: TButton;
Button5: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
T:string;
end;
var
f_RealtyF63CC: Tf_RealtyF63CC;
sNum:string;
implementation
uses data, main,RealtyF63C,RealtyL23;
{$R *.dfm}
procedure Tf_RealtyF63CC.FormCreate(Sender: TObject);
begin
if f_RealtyF63C.bnew=true then
begin
edit2.text:='';
edit1.text:='';
end;
if f_RealtyF63C.bnew=false then
begin
edit1.text:=f_RealtyF63C.ListView2.Selected.Caption;
edit2.text:=f_RealtyF63C.ListView2.Selected.SubItems[0];
end;
end;
//Tab
procedure Tf_RealtyF63CC.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Begin
key:=0;
perform(WM_NEXTDLGCTL,0,0);
end
else if key=VK_ESCAPE then close;
end;
procedure Tf_RealtyF63CC.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF63CC.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF63CC.Button1Click(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit1.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyF63CC.Button7Click(Sender: TObject);
begin
if f_RealtyF63C.bnew=true then
begin
with f_RealtyF63C.ListView2.Items.Add do
begin
caption:=edit1.Text;
subitems.Add(edit2.text);
end;
if f_RealtyF63C.listview1.Items.Count>0 then f_RealtyF63C.listview2.Items.Item[0].Selected:=true;
edit2.Text:='';
edit1.Text:='';
end;
if f_RealtyF63C.bnew=false then
begin
with f_RealtyF63C.ListView2.Selected do
begin
caption:=edit1.Text;
subitems[0]:=Edit2.text;
end;
close;
end;
end;
procedure Tf_RealtyF63CC.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF63CC.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -