unit SmallMes_Frm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TSmallMes = class(TForm)
Label1:TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
tm:integer;
Procedure MyMessage(str:AnsiString;Sec:integer&# 41;;overload;
Procedure MyMessage(str:AnsiString);overload;
{ Public declarations }
end;
var
SmallMes: TSmallMes;
implementation
{$R *.dfm}
{/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-}
Procedure TSmallMes.MyMessage(str:AnsiString;Sec: ;integer);
begin
Label1.Caption:=str;
SmallMes.Width:=Label1.Width+15;
Label1.Align:=alClient;
tm:=Sec;
SmallMes.Show();
SmallMes.Update();
if(tm>0)then
Timer1.Enabled:=true
else
Screen.Cursor := crSQLWait;
end;
{/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-}
Procedure TSmallMes.MyMessage(str:AnsiString);
begin
Label1.Caption:=str;
SmallMes.Width:=Label1.Width+15;
Label1.Align:=alClient;
SmallMes.Show();
SmallMes.Update();
end;
{/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-}
procedure TSmallMes.Timer1Timer(Sender: TObject);
begin
Dec(tm);
if tm<=0 then
begin
Timer1.Enabled:=false;
Close();
end;
end;
{/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-}
procedure TSmallMes.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Screen.Cursor := crDefault;
Label1.Align:=alCustom;
Label1.Caption:=' ';
end;
end.
بعد SmallMess.mymeesage را در فرم فراخوانی کن حتی می توانی فرم صدا زننده را Enable:=False کنی تا وقتی که می خواهی فعال شود