txtdlg.pas

来自「delphi语言开发的矢量图形处理对象」· PAS 代码 · 共 61 行

unit TxtDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    txtInfo:string;
  end;
  procedure TxtSet(Drw_ref:Pointer);
var
  txt_Dlg: TOKBottomDlg;

implementation
uses
   drwObj;
{$R *.dfm}

procedure TOKBottomDlg.CancelBtnClick(Sender: TObject);
begin
  txtInfo:='';
end;

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
begin
  if trim(Edit1.Text)<>'' then
     txtInfo:=Edit1.Text
  else
     txtInfo:='';
end;
procedure TxtSet(Drw_ref:Pointer);
begin
  txt_Dlg:=TOKBottomDlg.Create(Application);
  txt_Dlg.Edit1.Text :=TDrawObject(drw_Ref).Info;
  try
    if txt_Dlg.ShowModal =mrOk then
    TDrawObject(drw_ref).Info :=txt_Dlg.txtInfo;
  finally
    txt_Dlg.Free;
  end;
end;
procedure TOKBottomDlg.FormActivate(Sender: TObject);
begin
  edit1.SetFocus;
end;

end.