www.pudn.com > ChaoJiQiDong.rar > u_AddDlg.pas, change:2009-11-12,size:667b


unit u_AddDlg; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, Buttons,mxOutlookBarPro; 
 
type 
  TForm2 = class(TForm) 
    LabeledEdit1: TLabeledEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure BitBtn1Click(Sender: TObject); 
  private 
 
  public 
 
  end; 
 
var 
  Form2: TForm2=NIL; 
  MyOutlookBar:TmxOutlookBarPro=NIL; 
implementation 
 
{$R *.dfm} 
 
 
 
procedure TForm2.BitBtn1Click(Sender: TObject); 
begin 
    if Trim(LabeledEdit1.Text)='' then exit; 
    if MyOutlookBar=NIL then exit; 
    MyOutlookBar.Hint:=Trim(LabeledEdit1.Text); 
end; 
 
end.