opendialog automatisch schließen

[jangbu]

Hallo,

klingt vielleicht sinnlos, aber kann ein opendialog automatisch z.B. nach einer gewissen Wartezeit geschlossen, also einfach der Öffnen-button simuliert werden?

[Natcree]

versuch mal ne ttimercomponente setze die warte zeit ein und dann opendialogfenster schließen lassen

[jangbu]

genau das meine ich ja, wie kann ich von "extern" dem opendialog, der ja auf keypress wartet, von "außen" das ereignis unterschieben.

[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;

[DeddyH]

Und wenn zwischendurch eine andere Anwendung den Fokus erhält?

[edit] Was aber funktionieren könnte:
PostMessage(OpenDialog.Handle, WM_SYSCOMMAND, SC_CLOSE, 0); Das ist allerdings auch noch verbesserungswürdig, da der Dialog ja eine gewisse Zeit zum Öffnen braucht. [/edit]

[Brisedarius]

Hallo,

Am besten, schick die Message direkt an das Handle des OpenDialoges.

Etwa so:

SendMessage(opendialog1.Handle, WM_CLOSE, 0, 0);

Allerdings, wird der OpenDialog, mit WM_CLOSE einfach geschlossen, sp als ob der Benutzer auf Abbrechen geklickt hätte.

LG
Brisedarius

[Natcree]

procedure TForm1.Timer1Timer(Sender: TObject);
const
IDS_WNDTITLE = 'Öffnen';
var
hWnd: DWORD;
begin
hWnd := FindWindow(nil, IDS_WNDTITLE);
if hWnd <> 0 then
SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)
end;
versuch mal den

[DeddyH]

FindWindow braucht man nicht, siehe mein Edit oben.

[Dalai]

Bedenkst du bitte auch, dass es den User verwirren wird, wenn sich ein solcher Dialog ohne erkennbaren Grund von allein schließt? Irgendwie kann ich mir keinen Anwendungsfall vorstellen, in dem sowas sinnvoll sein könnte (liegt aber bestimmt an mir).

MfG Dalai

[Natcree]

deddyh

Dein code funktioniert bei mir nicht