Forum: Sonstige Fragen zu Delphi
by freimatz,
9. Apr 2018
:shock: :roll: :mrgreen:
Programmierung Lehre -> diese Schule meiden.
Ok - schöner Code ist meiner auch nicht. Aber da mache ich erst wieder rum wenn das Produkt raus ist und das ist Donnerstag.
@KodeZwerg: was soll das bringen? Macht es doch nur extrem unleserlich. Der Compiler optimiert das doch eh weg.
Forum: Sonstige Fragen zu Delphi
by freimatz,
9. Apr 2018
Hallo,
also erstmal - ich habe eine Lösung:
procedure DoIcon();
var
h : hIcon;
begin
h := LoadIcon(hInstance, 'MAINICON');
Application.Icon.Handle := h;
InvalidateRect(Application.Handle, nil, true);
Forum: Sonstige Fragen zu Delphi
by freimatz,
9. Apr 2018
Ah danke. Das hatte ich noch nicht "auf dem Schirm". Werde das untersuchen.
Forum: Sonstige Fragen zu Delphi
by freimatz,
9. Apr 2018
Tja, wenn ich das wüsste ... :?
Wie geschrieben habe ich DevExpress im Verdacht. Die hooken sich ins System rein. Allerdings hatte ich noch keine Zeit das näher zu untersuchen.
Forum: Sonstige Fragen zu Delphi
by freimatz,
9. Apr 2018
Nein es ist nicht gut, zumindest bei mir. Ich glaube ja gerne, dass das bei dir funktioniert. Auch nehme ich an, dass es auch bei mir funktioniert, wenn ich ein neues Projekt mit deinem Code mache.
Leider habe ich noch mehr als 500.000 andere Zeilen Code die halt auch im Projekt drin sein müssen sonst werden manche Leute unzufrieden ;-)
Forum: Sonstige Fragen zu Delphi
by freimatz,
7. Apr 2018
Funktioniert leider auch nicht - außer dass es später eine Schutzverletzung gibt (vermutlich weil es dann SplashForm und soit auch das Icon nicht mehr gibt.)
@KodeZwerg: Danke. Das sieht jetzt eher lowlevel aus. Versucht habe ich es so:
h := LoadIcon(hInstance, 'MAINICON');
Application.Icon.Handle := h;
InvalidateRect(Application.Handle, nil, true);
Es funktionert aber auch...
Forum: Sonstige Fragen zu Delphi
by freimatz,
6. Apr 2018
Sorry, dadurch wird GetIcon immer noch nicht zu einer function ;-)
Forum: Sonstige Fragen zu Delphi
by freimatz,
6. Apr 2018
Danke. Leider Nein: Fm_Splash.pas(70): E2010 Inkompatible Typen: 'TIcon' und 'procedure, untyped pointer or untyped parameter': GetIcon ist keine function.
(PS.: gegooglet habe ich auch schon lange.)
Forum: Sonstige Fragen zu Delphi
by freimatz,
6. Apr 2018
Hallo,
in meiner App erscheint zuerst ein SpashScreen. Das ist eine einfache TForm. Das Hauptformular wird erst später geladen. Ich möchte nun dass in der Taskleiste nun gleich ein Icon und der Titel erscheint.
Beim Titel klappt das mit Application.Titel recht gut, beim Icon gelingt es mir nicht.
Wie macht man das am Besten, woran kann es liegen?
Letzter Versuch war:
Icon :=...