Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
20. Jun 2004
Hi!
Hmm, geht bei mir auch nur bei maximized und normal nicht bei minimized. Sehr seltsam.
Dann mach es folgendeweise:
Setz bei Onminimize ne Variable auf true und beim restore wieder auf false.
Lass den Sound dann ausgegeben, wenn die Variable=true.
Ciao fkerber
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
20. Jun 2004
Hi!
if command = '!text' then
begin
memo1.Lines.Add(copy(strcommand,6,length(strcommand)));
if IsIconic(Form1.Handle) then
begin
PlaySound('message',0,SND_RESOURCE or SND_ASYNC);
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
20. Jun 2004
Hi!
ongetmessage
if isIconic(Form1.Handle) then do_something
else do_anything_else