fenster minimiert?

[Michael80]

hi, post mir doch mal bitte den code wie du das eingebunden hast GG

[G G]

Code:

 if command = '!text' then
begin
memo1.Lines.Add(copy(strcommand,6,length(strcommand)));

  if Form1.WindowState = wsminimized then begin


PlaySound('message',0,SND_RESOURCE or SND_ASYNC);
  end;
end;

und des haut nicht hin

[fkerber]

Hi!

Delphi-Quellcode:

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); 
   end; 
end;

Ciao fkerber

[G G]

hm ich glaub ich bin zu dumm, hab jetzt deinen code genommen, aber ich hör keinen sound,

aber als ich die andere methode genommen hab hats jedenfalls bei wsnormal nen sound gemacht aber sonst nich, jemand ne idea?

[fkerber]

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

[alcaeus]

Als ich damals den Chat programmiert habe habe ich im OnMinimize der ApplicationEvents eine variable auf true gesetzt, und anschließend wieder auf false. Das hat einwandfrei funktioniert, also wäre das eine evtl. Notlösung

Greetz
alcaeus

[G G]

mir is grad nochwas gekommen, wie man des macht wen des fenster im hintergrund ist, weil des is eigentlcih fast noch wichtiger?

[G G]

kann es sein das es keine onminizmize dings gibt, ich such im objektinspecktor bei form1 seh aber nix , hab delphi 7 enterprise?

danke euch allen schonmal im voraus für die ganze hilfe

[Motzi]

Eine Form hat kein OnMinimize-Ereignis, sondern nur das TApplication-Objekt. Aber probier mal das:

Delphi-Quellcode:

if command = '!text' then
begin
  memo1.Lines.Add(copy(strcommand,6,length(strcommand)));

  if IsIconic(Application.Handle) then
    begin
      PlaySound('message',0,SND_RESOURCE or SND_ASYNC);
   end;
end;

[Michael80]

Zitat von G G:

mir is grad nochwas gekommen, wie man des macht wen des fenster im hintergrund ist, weil des is eigentlcih fast noch wichtiger?

Zitat von Delphi OH zum Thema OnActivate eines Form:

Beschreibung

Mit OnActivate können Sie bestimmte Operationen durchführen, sobald das Formular den Fokus erhält (wenn beispielsweise der Benutzer darauf klickt).

Hinweis: Erfolgt die Übergabe der Steuerung von einer anderen Anwendung durch Windows, wird das Ereignis OnActivate des Anwendungsobjekts (TApplication), nicht des Formulars ausgelöst.