Wie bekomme ich das Handle meiner Anwendung ?? [ gelöst ]

[Corpsman]

Hi leute,

wenn ich eine VCL anwendung habe und mache

Delphi-Quellcode:

messagebox(application.handle,'as','asd',0);

Irgendwo im Code dann wird meine Anwendung komplett blockiert.

D.h. selbst wenn ich die Anwendung hinter der Messagebox sehe, so kann ich sie nicht ancklicken oder verschieben oder sonst was.

nun habe ich hier ein OpenGL Non VCL sample mit dem ich wunderbar Arbeiten kann.

Blöderweise ist da auch ne Messagebox drin. mittels

Delphi-Quellcode:

messagebox(0,'as','asd',0);

wird die Aufgerufen.

Klar wenn ich nun auf das Fenster Klciek das die Messagebox hinter dem Fenster verschwindet und ich Richtig Probleme bekomme :(.

Kann mir hier jemand sagen wie ich das handle bekomme das ich in meinem NonVCL sample übergeben mus damit ich den selben Effeckt wie bei der VCL Anwendung bekomme ?

Für alle die das nu nicht verstanden habe was ich meine, habe ich mein Sample mal hochgeladen und gleich die Messagebox reingemacht.


[edit=Matze]Im Titel "Hande" in Handle" geändert, damit man das Thema über die Suche auch leicht finden kann. MfG, Matze[/edit]l

[3_of_8]

Eine Non-VCL-Anwendung hat kein Handle. Eine VCL-Anwendung, genauer gesagt TApplication, arbeitet mit einem unsichtbaren Fenster, dessen Handle die TApplication-Instanz verwendet. Nimm einfach das Handle deiner MainForm oder so.

[Corpsman]

Das oder so ist das Problem.

ich habe eigentlich alles ausprobiert was ich so finden konnte, und man kann immer die Messagebox hinter dem Fenster Verstecken.

Deswegen hab ich ja den Source hochgeladen, da könnt ihr "ausprobieren" ob eure idee geht.

[ErazerZ]

MessageBox(h_Wnd, ....);

[Corpsman]

Shit,

im Sample gehts so tatsächlich.

Wenn ich das selbe aber in Balanced mache klappt es nicht.

Obwohl ich da den Exakt selben Code habe.

Gibts noch ne Möglichkeit von nem Fenster sich das Handle geben zu lassen ?

also das ich versuche das Handle von meinem Balanced zu bekommen und dann das zu nehmen...

[Relicted]

kann dein sample leider ned kompilieren...

Delphi-Quellcode:

var
  FWindowHandle : HWND;
//....
  FWindowHandle := Classes.AllocateHWnd(WndProc);
  messagebox(FWindowHandle,'as','asd',0);

klappt das vielleicht?

[Corpsman]

hmm

kann ich auch nicht Testen mein D5 kennt

AllocateHWnd

net.

Aber ich hab immerhin schon mal Rausgefunden das es generell zu gehn schein.

wenn ich diese Messagebox von wo anders aus aufrufe gehts.

Meine MessageBox wird von der Create einer anderen Subklasse Aufgerufen.

Ich versuch nu mal die Nachrichten wie wild hin und her zu schicken vielleicht klappts ja dann ;).

[Relicted]

schau mal in der hilfe vielleicht liegts ned in classes sondern woanders...

[Corpsman]

Also ich habs nu Teilweise hinbekommen.

Wenn die Messagebox kommt solange ich noch nie das Fenster anzeigen lassen habe gehts net, sobalt aber das 1. Mal via OpenGL gerendert wurde gehts.

nu mus ich ebend mit all meinen Fehlermeldungen warten bis das 1. Frame Rum ist dann gehts ;).

Aber woran das wohl liegt ...

[turboPASCAL]

Schon einmal

Delphi-Quellcode:

MessageBox(h_Wnd, , '', MB_SETFOREGROUND or MB_TOPMOST or MB_OK);

versucht ? :gruebel: