Komponente: Freiform Shape

[Medium]

Quasi als Nebenprodukt dessen, was in diesem Thread entstand, ist eine Komponente abgefallen, bei der ich mir vorstellen kann, dass sie eines Tages evtl. mal jemandem nützen wird.

Es handelt sich um etwas ähnliches wie TShape, jedoch ist die Form zur Entwurfszeit frei bearbeitbar. Zudem wird zur Laufzeit dafür gesorgt, dass sämtliche Mausevents nur auftreten, wenn die Maus auch im sichtbaren Bereich ist. Dadurch eignet sich das ganze auch für komplexe Schaltflächen o.ä.


Ich empfehle die zwei Dateien im .zip in das Lib-Verzeichnis von Delphi zu kopieren, und dann muss nur noch "KATPolyEdit.pas" als Komponente installiert werden.

Entstanden und gestestet unter Delphi 7 Ent., die in o.g. Thread auftretenden Probleme mit der RTTI & Co können hier aber nicht auftreten, da nichts in dieser Richtung benutzt wird.

Die Funktionsweise ist spimel, und statt eines Screenshots habe ich ein kleines Screenvideo angehängt, welches kurz zeigt, wie es geht und aussieht.

Ich hoffe es findet jemand Gefallen daran.