Einzelnen Beitrag anzeigen

Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Überlappende Images abfragen.

  Alt 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
  Mit Zitat antworten Zitat