[matiss]

Witam, może to głupie pytanie ale mam pewien problem, otóż gdy używam komendy form1.BringToFront; wysuwa mi formatkę na wierzch ale tylko przed okna AQQ a już okna innych aplikacji ignoruje, czyli jeśli na wierzchu mamy firefoxa to nie damy rady wywołać naszej formatki przed to okno. Błąd jest chyba stąd że okno wtyczki jest podpięte pod okno aqq, da się to jakoś zmienić ? Dotychczas bawiłem się z GetForegroundWindow i SetForegroundWindow ale to nie jest idealna metoda ponieważ w pewnych sytuacjach wywołuje nam okno innej aplikacji na wierzch

[Dibo]

Dziwne, SetForegroundWindow powinno wyrzucić na wierzch twoje okno. Na pewno posyłasz właściwy wskaźnik okna? SetForegroundWindow(From1.Handle).
Innym mało estetycznym rozwiązaniem może być włączenie na chwilę StayOnTop

Edit: A spróbuj jeszcze przed SetForegroundWindow wywołać: BringWindowToTop(Form1.Handle);

[Beherit]

Użyj SetWindowPos

[matiss]

Aj namieszałem w poście SetForegroundWindow działa ale później przy zamykaniu okienka wtyczki muszę oddać focus czy jak to nazwać odpowiedniemu oknu bez tego wyrzuca nam okno aqq na pierwszy plan, i radziłem sobie poprzez to, że przed wywołaniem wtyczki na wierzch brałem handle okienka które było na wierzchu i przy zamykaniu okna wtyczki przywracałem mu ten handle, jednakże są pewne sytuacje w których ten zwrotny handle wywołuje na wierzch okno które nie jest bezpośrednio pod oknem wtyczki, ale między nimi jest coś jeszcze. Mam nadzieję że nie namotałem zbyt bardzo.

StayOnTop tez odpada gdyż nie do końca działa, tzn ok wywołuje na wierz ale po kliknięciu na aplikację znajdującą się tuż pod oknem wtyczki nie wywołuje tej że na wierzch (tak jakby wtyczka dalej byłą "zawsze na wierzchu") dopiero klikniecie na okno będące niżej działa normalnie. W sumie nie wiem czemu tak się dzieje, ale wiem że też próbowałem tą metodą i właśnie nie działało.

SetWindowsPos też próbowałem efekt taki sam jak z stayontop, no chyba że coś źle robię:

SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0);
    SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,0);

[Dibo]

Aaaa, wydaje mi się że podobny problem sam Oconnel miał kiedyś z okienkami . To chyba jakaś wada delphioskich okienek...

[Beherit]

@matiss Po pierwsze to w ustawieniach formy w kompilatorze można ustawić aby okno było domyślnie na wierzchu. Po drugie SetWindowPos używa się nieco inaczej, poniżej masz kod:

SetWindowPos(
Handle, //uchwyt do formy lub do całej aplikacji - po prostu po testuj
HWND_TOPMOST, //lub HWND_NOTOPMOST
0, //te dane są niepotrzebne więc można dać wszędzie zero
0,
0,
0,
SWP_NOMOVE | SWP_NOSIZE //no i to jest najważniejsze, żeby nie zmieniło rozmiaru i pozycji okna
//można jeszcze dodać SWP_SHOWWINDOW aczkolwiek jest to raczej nie potrzebne
);

[Arthemis]

Możesz też spróbować przy tworzeniu formatki jako Owner przekazać uchwyt pulpitu - wtedy BringToFront() powinno wysuwać okno przed wszystkie inne.

[matiss]

@Beherit
Wiem że można ustawić, ale ja nie chcę aby okno było cały czas na wierzchu tylko skrótem klawiszowym aby można je było na wierzch przesunąć. Poza tym nie widzę zbyt wielkiej różnicy w tym SetWindowPos, poza zerami zamiast left top itd. ale te dane raczej nie wpływają na zachowanie.

@Arthemis
O właśnie o czymś takim myślałem, tylko nie wiem jak to zrobić na necie znalazłem, że jak chcemy żeby desktop był to dajemy nil ale mam tak od początku form1 := Tform1.Create(nil); i nie działa.

[Arthemis]

A spróbuj TFrom.Create( PComponent(GetDesktopWindow()) );

Jeśli wyskoczy Ci brak typu PComponent to zadeklaruj go sobie na górze *.pas'a
type PComponent = ^TComponent;

[matiss]

Kombinuję kombinuję i nie umiem, nie bawiłem się wcześniej z type więc może moje pytania wydadzą się banalne ale cóż. Zadeklarowałem wskaźnik w type ale wyrzuca mi błąd że typy się nie zgadzają (przy form create)

Incompatible types: 'TComponent' and 'PComponent'

Gdy zmieniłem tamta linijkę na taką bez wskaźnika:

Tform1.Create(TComponent( GetDesktopWindow() ));

To co prawda wtyczka się skompilowała ale po prostu nie działa, aqq ją ładuje i nic nawet błędu nie wyrzuca. Spróbuję jeszcze coś pogrzebać ale jeśli wiecie co jest nie tak będę wdzięczny

[Arthemis]

Możesz też spróbować użyć

TForm.CreateParented(GetDesktopWindow());

[matiss]

Teraz się kompiluje, ale efekt jest taki sam jak przy crate(nil) tzn. okienko wychodzi na wierzch ale tylko przed okna AQQ.

[UsagiAddict]

A można użyć kodu natywnego? Dodatkowo coś w C/C++ lub Asemblerze jakimś napisać i dołączyć? Skoro AQQ jest stricte windowsowskie to na przenośność kodu to nie wpłynie.

[Morpheus]

Użytkownik UsagiAddict dnia 29.12.2009 18:01 napisał

A można użyć kodu natywnego? Dodatkowo coś w C/C++ lub Asemblerze jakimś napisać i dołączyć? Skoro AQQ jest stricte windowsowskie to na przenośność kodu to nie wpłynie.

A Delphi to nie kod natywny ? ;P
Zresztą jaki cel miałoby dołączanie C/C++, który ma praktycznie takie same możliwości po to, żeby użyc funkcji VCLa który jest biblioteką dla Delphi?

[UsagiAddict]

pomyślałem, że jeśli nie można w Dephi to w innym języku będzie taka możliwość ; ) chyba że windows jest tak skonstruowany, że nie można

[matiss]

Ok postanowiłem dalej się z tym pomęczyć i doszedłem do tego co jest nie tak, funkcja setwindowpos nie daje okienku focusa używam takiego kodu

Cytat

SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE);

SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE);

I wszystko fajnie wychodzi na wierzch, ale focus ma dalej okienko pod wtyczką, dodawałem linijki typu Form1.setfocus; ale o dziwo to też nie nadaje wtyczce focusa, bawię się tym dalej ale jakbyście mieli jakiś pomysł to byłbym wdzięczny