Qreport jak zamknąć okno podglądu

0

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;

0

Najpierw FindWindow a potem, PostMessage i komunikat WM_CLOSE ;)

0

A o więcej szczegółów mogę prosić ?

0

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

0

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 ??????????

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0