Mam taka stytuację pod buttonem mam instrukcje podglądu pewnego raportu następnie chciałbym aby np. po 10 sekundach onko w którym jest podląd raportu zamykało się. Pomiar czasu nie jest problemem ale jak wywolać instrukcje które zamyka okno podglądu.
Podgląd wywułuje nazwa_qrep.Preview;
Najpierw FindWindow a potem, PostMessage i komunikat WM_CLOSE ;)
A o więcej szczegółów mogę prosić ?
HWND := FindWindow('','Print Preview');
Sleep(1000);
SendMessage(HWND,WM_CLOSE,0,0);
Dalem taki kod ale nie dziala jakies sugestie ?, nie wiem co wpisac jako pierwszy parametr w findwindown
Dokladnie wyglada to tak : (instrukacja podpieta pod button`em)
QRCompositeReport1.Preview;
HWND := FindWindow(0,'Print Preview');
if IsWindowVisible(HWND) then ShowMessage('Znalazlem');
Sleep(100);
PostMessage(HWND,WM_CLOSE,0,0);
ShowMessage('koniec operacji');
Wczesniej byl sendmessage...
Kod dziala jest informacja ze znalazl okno ale dopiero jak ja klikne na zamkniecie raportu, dopiero wtedy reszta kodu jest wykonywana czyli :
HWND := FindWindow(0,'Print Preview');
if IsWindowVisible(HWND) then ShowMessage('Znalazlem');
Sleep(100);
PostMessage(HWND,WM_CLOSE,0,0);
ShowMessage('koniec operacji');
A mi zalezy aby byl generowany podglad a nastepnie aby okno bylo zamykane jak takei cos zrobic ??????????