labelinput.pas

一个很好的阅读器

{
模块名称：指定书签内容

使用方法：1、Create
		  2、ShowModal
		  3、EditLabelInput.Text := '原始书签内容';

返回值：  1、mrOk：成功改变书签内容
		  2、mrCancel：取消改变书签内容
		  3、EditLabelInput.Text：返回修改后的书签内容
}

unit LabelInput;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TFormLabelInput = class(TForm)
    BtnOk: TButton;
    BtnCancel: TButton;
	GroupBox1: TGroupBox;
    EditLabelInput: TEdit;

	procedure FormShow(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  FormLabelInput: TFormLabelInput;

implementation

{$R *.DFM}

procedure TFormLabelInput.FormShow(Sender: TObject);
begin
	EditLabelInput.SetFocus;
	EditLabelInput.SelectAll;
end;

end.