我的delphi中公共function(3) (2001年1月5日).txt

delphi 编程技巧

我的delphi中公共function(3) (2001年1月5日) 

网友更新  分类:杂类   作者:saoren  推荐:saoren   阅读次数:601  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
我写了一个关于建立一个tip的提示窗体，很过瘾的。


var TipForm:TForm;
TipLabel:TLabel;

procedure FreeTipDialog;
begin
if TipForm<>nil 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;