opendialog automatisch schließen

[Natcree]

habe nen code mach mal ne ttimer kompo rauf onclickereignis und setze den timer auf deinen Zeitraum ein
habs getestet funktioniert


procedure TForm1.Timer1Timer(Sender: TObject);
begin

keybd_event( VK_ESCAPE, Mapvirtualkey( VK_ESCAPE, 0 ), 0, 0);

keybd_event( VK_ESCAPE, Mapvirtualkey( VK_ESCAPE, 0 ), KEYEVENTF_KEYUP,0);
end;