AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Shape soll Form nicht überschreitten.

Ein Thema von Aboz1 · begonnen am 20. Jun 2013 · letzter Beitrag vom 21. Jun 2013
 
Aboz1

Registriert seit: 17. Mai 2013
8 Beiträge
 
#6

AW: Shape soll Form nicht überschreitten.

  Alt 21. Jun 2013, 16:29
Du hast doch einfach 2 Randbedingungen die zu behandeln sind.
Es klappt,tausend Dank. So sieht mein Quelltext aus
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

shape1.top:= screentoclient (mouse.CursorPos).Y - shape1.Height div 2;
if mouse.cursorpos.y < Form1.top then
  Shape1.top := 0
else
if mouse.cursorpos.y > Form1.top + Form1.clientheight-Shape1.height then
  shape1.top := Form1.clientheight-Shape1.height
else
  shape1.top := mouse.CursorPos.y-Form1.top;

end;
Für die untere Kante jedenfalls. Die Maus ist jetzt komischerweise ein Stück über dem Shape. Das heisst, wenn ich sie hochziehe, kommt das Shape nie ganz oben an, da die Maus die Form verlässt.

Habs jetzt. Vielen Dank nochmal.

Geändert von Aboz1 (21. Jun 2013 um 18:16 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:51 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