frminput.pas

SUIPack是一款为Delphi和C++Builder开发的所见即所得的界面增强VCL组件

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   frmInput.pas
//  Creator     :   Shen Min
//  Date        :   2003-04-22
//  Comment     :
//
//  Copyright (c) 2002-2006 Sunisoft
//  http://www.sunisoft.com
//  Email: [e-mail]
//
////////////////////////////////////////////////////////////////////////////////

unit frmInput;

interface

{$I SUIPack.inc}

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

type
  TfrmInput = class(TForm)
    suiForm1: TsuiForm;
    lbl_prompt: TLabel;
    edt_value: TsuiEdit;
    btn1: TsuiButton;
    btn2: TsuiButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

uses SUITitleBar;

{$R *.dfm}

procedure TfrmInput.FormShow(Sender: TObject);
var
    w : Integer;
begin
    if Width - (edt_value.Left + edt_value.Width) > 50 then
    begin
        edt_value.Width := Width - 50 - edt_value.Left;
        btn1.Left := (Width - btn1.Width - btn2.Width - 16) div 2;
        btn2.Left := btn1.Left + btn1.Width + 16;
    end;

    w := SendMessage(Handle, SUIM_GETBORDERWIDTH, 0, 0);
    if w > 6 then
        Width := Width + 2 * w;
end;

end.