Fehler bei Bereichsprüfung in SendMessage

[TUX_der_Pinguin]

So ich habe deinen Rat befolgt Muetze1, und meine Routine entsprechend angepasst.

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 
        SendMessage(Integer(barStatus.Handle), SB_SETICON, Panel, Integer(AnimatedIcon.Handle)); 
      except 
        on E: exception do begin 
          ShowMessage(E.Message); 
        end; 
      end; 

    end 
    else begin 
      //Icon wieder löschen 
      SendMessage(Integer(barStatus.Handle), SB_SETICON, Panel, 0); 
    end;{else} 

  end;{if IconIdx Ok} 

end;

Ich bin mal gespannt ob der Fehler noch auftritt oder die Bereichsprüfung nicht mehr anschlägt.

Zitat:

Zitat von hoika

Hallo,

Zitat:

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.

Ich hoffe, die Warnung wurde nicht schon von Anfang angezeigt ???
Wenn ja, hättest du usn das mal sagen können.

Heiko

Nein die Warnung kam nur als ich die If Abfrage "if Handle < MaxInt" hinzugefügt hatte. Davor und mit dem jetztigen Stand
kommt diese Warnung nicht mehr.