自己对DELPHI学习的一点体会

				我的delphi中公共function(3) (2001年1月5日) 
				
				网友更新  分类:杂类   作者:saoren  推荐:saoren   阅读次数:601  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				我写了一个关于建立一个tip的提示窗体，很过瘾的。
				
				
				var TipForm:TForm;
				TipLabel:TLabel;
				
				procedure FreeTipDialog;
				begin
				if TipFormnil then
				TipForm.Close;
				end;
				
				procedure MyClose(Sender :TObject;var Action:TCloseAction);
				begin
				TipForm:=nil;
				Action:=caFree;
				end;
				
				procedure CreateTipDialog(Tip:string);
				begin
				if TipForm=nil then
				begin
				TipForm:=TForm.Create(self);
				with TipForm do
				begin
				OnClose:=MyClose;
				BorderIcons:=[];
				FormStyle:=fsStayOnTop;
				BorderStyle:=bsSizeToolWin;
				Font.Size :=10;
				Font.Name :='宋体';
				Position:=poScreenCenter;
				ClientWidth:=350;
				ClientHeight:=80;
				end;
				TipLabel:=TLabel.Create(TipForm);
				with TipLabel do
				begin
				Name:='Message';
				Parent:=TipForm;
				AutoSize:=true;
				WordWrap:=True;
				Caption:=Tip;
				SetBounds(20,30,300,32);
				end;
				TipForm.Show;
				TipForm.Update;
				end;
				end;