Keine BorderIcons aber Icon links oben in der Ecke

[F.W.]

Wie kann ich links oben das Icon des Programms anzeigen lassen, wenn ich das Systemmenu abgeschaltet habe?

Danke!

[Mikko]

Es müßte so gehen, wenn du alle Einträge im Systemmenü löschst.

Edit: Mit DELETEMENU.

[Luckie]

NonVCL wüßte ich eine Lösung. Fensterstil auf Dialog stellen und dann mit WM_SETICON ein Icon zu weisen. Probier mal, ob das auch mit der VCL klappt.
Jupp so geht es:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  hIcon: THandle;
begin
  hIcon := LoadIcon(0, IDI_EXCLAMATION);
  SendMessage(Handle, WM_SETICON, ICON_SMALL, Integer(hIcon));
end;

Alternativ kannst du ein Icon aus einer Ressource laden oder aus einer Datei.

hIcon := LoadIcon(hInstance, MAKEINTRESOURCE(1)) Läd ein Icon mit der Ressourcen-ID 1.

[F.W.]

Hallo!

ALs erstes mal entschuldigung, dass es jetzt erst kommt, aber ich hatte kaum Zeit und habe an diesem Projekt nicht weitergearbeitet.

Also:
Mikkos Methode: DELETEMENU -> weiß ich nicht wie's geht, ist also noch offen
Luckies Methode -> Habe ich eben probiert, geht nicht, da ich VCL programmiert hab'

Ich bin also für weitere Voeschläge offen und Mikko, bitte erklär's wenigstens kurz

Danke!

[Mikko]

Hab jetzt festgestellt, daß alle Funktionen im Menü, wenn du das Menü löschst, auch deaktiviert werden. So kannst du z.B. dein Fenster nicht mehr verschieben. Ich könnte mir vorstellen, daß das von Nachteil bei der Bedienung ist. Eine andere Lösung fällt mir jetzt spontan auch nicht ein, außer wenn du den Titel des Fensters komplett wegläßt (BorderStyle=bsNone) und die Titelzeile per Panel und Image mit deinem Icon "nachbaust". Wäre eine schnelle und einfache Methode. Natürlich müßtest du dann das verschieben für die Titelzeile einbauen, aber das ist ja eigentlich kein Problem.

[Luckie]

Zitat von F.W.:

Luckies Methode -> Habe ich eben probiert, geht nicht, da ich VCL programmiert hab'

Hallo? Kuck dir mal meinen Sourcecode an. Das IST VCL! Und bei mir geht es.

[Matze]

Bei mir geht es auch, jedoch nur mit BorderStyle als bsDialog, wie es Luckie geschrieben hat.
Ohne das X schaffe ich's auch nicht...

[F.W.]

Sorry Luckie, hatte ich mich wohl verguckt! Allerdings gning's bei mir wirklich nicht, keine Ahnung warum... Allerdings sollte das Formular veränderbar in der Größe sein.

Zu Mikko:
Ich habe am Anfang auch darüber nachgedacht BorderStyle auf bsNone zu setzen, aber dann ist mir eingefallen, dass dann auch der Rahmen der Form fehlt... und da das ganze auf WinXP basiert sieht es mit Titelleiste eben schöner aus.

Nagut, dann lass ich das mit dem Icon, davon geht ja keine Welt unter.

Trotzdem Danke!