Hello
i use the Alphacontrol 6.20. I now want to use the MessageBox from the Window Unit. The MessageBox ist skinned, I see. BUT the MessageBox has a Bug.
This is the Code i use in my Program:
If MessageBox(frmMain.handle, 'Fertig mit dem Download der Dateien. Möchten Sie nun das Downloadverzeichnis direkt öffnen ?', 'Download beendet…', MB_SYSTEMMODAL or MB_SETFOREGROUND or MB_TOPMOST or MB_ICONINFORMATION or MB_YESNO) = mrYes then begin
Try
shellexecute(application.Handle, 'explore', PChar(DownloadVerz), nil, nil, SW_NORMAL);
Except
End;
End;
Look at the Picture how it is showed.