Thema: Delphi Keine Icon Resource?

Einzelnen Beitrag anzeigen

Benutzerbild von mleyen
mleyen

Registriert seit: 10. Aug 2007
609 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Keine Icon Resource?

  Alt 4. Aug 2010, 14:29
Da ich damals danach gefragt wurde, ich jetzt wieder das Problem hatte und ich nirgends im Forum eine 'saubere' Lösung gefunden hab:
Delphi-Quellcode:
program Project1;

{$DEFINE IWannaChangeMainIconInIDE} // Strg + Shift + F11 --> Anwendung [+~370 KB!!!]
{$DEFINE IWannaUseVersionInformation} // Strg + Shift + F11 --> Verionsinformationen

{$IFDEF IWannaChangeMainIconInIDE}
uses
  Forms;
{$ENDIF}

{$IFDEF IWannaChangeMainIconInIDE AND $IFNDEF IWannaUseVersionInformation}
  {$DEFINE IWannaUseVersionInformation}
{$ENDIF}
{$IFDEF IWannaUseVersionInformation}
{$R *.res}
{$ENDIF}

begin
{$IFDEF IWannaChangeMainIconInIDE}
  Forms.Application.Icon.Modified; // Whatever... ohne gehts nicht...
{$ENDIF}
end.
Um die Versionsinformationen zu nutzen, braucht man:
  • {$R *.res}
Um das Icon innerhalb von Delphi austauschen zu können, braucht man:
  • {$R *.res}
  • Die Unit Forms
  • Irgendeinen sinnbefreiten Aufruf aus Application.
  Mit Zitat antworten Zitat