Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: Application.Icon setzen

   
    by KodeZwerg, 9. Apr 2018
  Das war halt nur ein Beispiel, jeder so wie er es mag.
  Da ich mich an so eine Art der Programmierung gewöhnt habe, also das innerhalb bestimmter {$IF} Blöcke nur bestimmte Sachen beim Compilieren berücksichtigt werden, kann ich mich halt in den {$IFNDEF} Blöcken relativ frei austoben und in den {$IFDEF} oder {$ELSE} Blöcken halt Achten alles richtig zu machen.
  Da es bei mir viele eigene...
• Forum: Sonstige Fragen zu Delphi

  AW: Application.Icon setzen

   
    by KodeZwerg, 9. Apr 2018
  In der Entstehung nutz ich erstmal viele Variablen um halt Feedback auswerten zu können, die kommen alle schön brav in eine {$IFNDEF DEPLOY} rein um automatisch bei {$DEFINE DEPLOY} ignoriert/übersprungen zu werden.
  
  Als Beispiel dient mir obiger Source:
  
  {.$DEFINE DEPLOY} // Wenn der Punkt entfernt wird, ist's aktiv
  
  procedure DoIcon();
  {$IFNDEF DEPLOY}
  var
  h : hIcon;
• Forum: Sonstige Fragen zu Delphi

  AW: Application.Icon setzen

   
    by KodeZwerg, 9. Apr 2018
  So sollts auch gehen um Code kurz zu halten.
  
  procedure DoIcon();
  begin
  Application.Icon.Handle := LoadIcon(hInstance, 'MAINICON');
  InvalidateRect(Application.Handle, nil, true);
  end;
  Sonst müsstest Du irgendwo das "h" wieder freigeben, oder?
• Forum: Sonstige Fragen zu Delphi

  AW: Application.Icon setzen

   
    by KodeZwerg, 7. Apr 2018
  {$R MYICONS.RES}
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  h : hIcon; // wir brauchen das Handle, nicht das Image, deswegen HICON
  begin
  h := LoadIcon(hInstance, 'ICON_1'); // in Resource-Datei MyIcons.res ist ein Eintrag Namens ICON_1, Handle dahin erzeugen
  Application.Icon.Handle := h; // Handle an das Programm übergeben
  InvalidateRect(Application.Handle, nil, true);...
• Forum: Sonstige Fragen zu Delphi

  AW: Application.Icon setzen

   
    by KodeZwerg, 6. Apr 2018
  So hole ich mir zur Laufzeit Icons aus der Resource:
  
  
  {$R MYICONS.RES}
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  h : hIcon;
  begin
  h := LoadIcon(hInstance, 'ICON_1');