Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
Delphi 2007 Professional
|
Re: Überlappende Images abfragen.
13. Feb 2005, 09:36
Ich habe hier mal den Code getestet. Ich habe eine Form und zwei bewegliche TPanels. Wenn einer der beiden TPanels sich überschneiden, soll ein Ereignis ausgelöst werden. Leider geht es nicht! Was mache ich da falsch?
Delphi-Quellcode:
var schnittmenge, APanel, BPanel: TRect;
begin
schnittmenge := Rect(80, 80, 80,80);
APanel := Rect(Panel1.left,Panel1.Top,
Panel1.left+Panel1.Width,Panel1.Top+Panel1.Height);
BPanel := Rect(Panel2.Left, Panel2.Top,
Panel2.Left+Panel2.Width,Panel2.Top+Panel2.Height);
if intersectrect(Schnittmenge, APanel, BPanel) then Close;
end;
Heike Kretschmann
|
|
Zitat
|