Fehler bei Bereichsprüfung in SendMessage

[TUX_der_Pinguin]

Zitat von Muetze1:

WParam und LParam sind idiotischerweise von CodeGear als Integer (LongInt) deklariert worden und von daher könnte AnimatedIcon.Handle einen Wert > MaxInt haben, so dass er ein Problem bekommt. Gleiches für das Fensterhandle...

Ich habe mal etwas versucht, ob es damit nun klappt weiß ich noch nicht, zur Zeit erhalte ich den Fehler nicht.
Ich bin mir nicht sicher ob mit der Zeit die Handle immer höher indiziert werden und somit erst später und nicht
"kurz" nach Rechner start auftreten.

Was ich mich jetzt nur Frage der Compiler meldet: "Warnung: Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert"
wie ich diese Warnung wieder weg bekomme.

Delphi-Quellcode:

procedure TfrmMain.pShowStatusBarIcon(IconIdx: Byte; bShow: Boolean; Panel: Byte);
begin
  if (IconIdx < imlStatusBar.Count) then begin
  
    if bShow then begin
      //Icon holen...
      imlStatusBar.GetIcon(IconIdx, AnimatedIcon);

      //Icon anzeigen
      try
        if (barStatus.Handle <= MaxInt) and (AnimatedIcon.Handle <= MaxInt) then
          SendMessage(barStatus.Handle, SB_SETICON, Panel, AnimatedIcon.Handle);
      except
        on E: exception do begin
          ShowMessage(E.Message+': '+IntToStr(barStatus.Handle)+' '+IntToStr(Panel)+' Icon: '+IntToStr(AnimatedIcon.Handle));
        end;
      end;

    end
    else begin
      //Icon wieder löschen
      if (barStatus.Handle <= MaxInt) then
        SendMessage(barStatus.Handle, SB_SETICON, Panel, 0);
    end;{else}

  end;{if IconIdx Ok}

end;

Zitat von hoika:

Hallo,

was ich hier vermisse sind ein paar Asserts,

z.B.

Assert(barStatus.Handle>0);
Assert(AnimatedIcon.Handle>0);


Heiko

Also das man mit "Assert" etwas prüfen kann, habe ich ja soweit verstanden jedoch nicht so ganz wie ich das einsetzen soll
in der OH steht auch das man "Assert" nicht in einer Fertigen Anwendung einsetzen soll, ich verstehe das eher als Debug
Möglichkeit.