title image


Smiley Re: Showmessage automatisch schliessen


procedure showtimedmessage(const Msg: string; timeout:cardinal;sender:tobject);

var

itime : cardinal;

fMessage : TForm;

begin

fmessage:= CreateMessageDialog(Msg, mtinformation, [mbOK]);

try

fmessage.Position := poScreenCenter;

fmessage.show;

timeout:=timeout+gettickcount;

repeat

Application.ProcessMessages;

itime:=GetTickCount;

if (fMessage.ModalResult = mrOk) or (fMessage.ModalResult = mrcancel)

then break;

fmessage.Caption:=inttostr(timeout-itime);

until itime > timeout;

fmessage.close;

finally

fmessage.Free;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

showtimedmessage('Hallo Welt',1000,sender);

end;
gelegentlich gelangen Leser meiner (wirren) Beiträge, zur Überzeugung, diese seien
a)unverständlich,
b)falsch,
c)unvollständig,
d)blödsinn
jene sind herzlich eingeladen mich zu korrigieren



Fini ( fini-online )


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: