Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#7

Re: InputBox nach vorne bringen?

  Alt 6. Jan 2006, 19:22
Ich habe jetzt einen gut funktionierenden Workaround für das Problem gefunden: Einfach vor dem Aufruf von InputBox alle Fenster auf dem Desktop minimieren! Natürlich nicht manuell ;-] sondern so:

Delphi-Quellcode:
//Minimiert alle Fenster auf dem Desktop. Benötigt ShlObj UND ComObj.
//Hat den gleichen Effekt wie Rechtsklick auf die Taskleiste -> Desktop anzeigen:
procedure Shell_MinimizeAll;
var
   Shell: OleVariant;
begin
   Shell := CreateOleObject('Shell.Application');
   Shell.MinimizeAll;
end;
  Mit Zitat antworten Zitat