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.