Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Fenster Position erkennen (https://www.delphipraxis.net/111397-fenster-position-erkennen.html)

dazar_t 2. Apr 2008 20:42


Fenster Position erkennen
 
Guten Tag

Ich arbeite grade an einem kleinen Projeckt. Ein Tier das auf dem Desktop herrumläuft usw. Also son bissle Quatsch :D

Nun wollte ich mir nen paar sachen von anderen leuten abgucken und wollte es so Programmieren das das Tier auf ein fenster fallen kann ( SPRICH: Ich ziehe das Tier ganz nach oben und es fällt auf die Taskleiste. Ist aber ein Fenster in der "Flugbahn" soll es schon dort "hinfallen").

Nur wie bekomme ich die Positionen bzw die Points von jedem Fenster um eine Kollisions kontrolle durchzuführen ?

MfG
DaZaRt

Luckie 2. Apr 2008 21:12

Re: Fenster Position erkennen
 
Guck mal hier: MSDN-Library durchsuchenGetWindowRect.

dazar_t 3. Apr 2008 10:57

Re: Fenster Position erkennen
 
Danke

Doch leider habe ich ein problem. Ich habe jetzt mal so zum testen folgenden Code geschreiben :
Delphi-Quellcode:
var
Rec: TRect;
begin
GetWindowRect(Application.Handle,Rec);
Memo1.Lines.Add('TOP: '+IntToStr(Rec.Top)+'  Bottom: '+IntToStr(Rec.Bottom)+'  Left: '+IntToStr(Rec.Left)+'  Right: '+IntToStr(Rec.Right));
Doch leifert es immer die gleichen werte obwohl ich das fenster an andere positionen schiebe.

DeddyH 3. Apr 2008 10:59

Re: Fenster Position erkennen
 
Ersetz mal Application.Handle durch self.Handle.

Luckie 3. Apr 2008 11:01

Re: Fenster Position erkennen
 
Application ist das unsichtbare Anwendungsfenster der VCL, welches unter anderen für den Taskbareintrag verantwortlich ist. Du musst das Handle des Formulares angeben.

dazar_t 3. Apr 2008 11:03

Re: Fenster Position erkennen
 
Dankeschön hat funktioniert.


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz