Delphi - Futási időben mozgatható nyomógomb

forráskód letöltése
Létrehoztunk egy olyan nyomógombot, melyet futási időben oda mozgathat a felhasználó, ahová akar. A mozgatáshoz a Ctrl lenyomása mellett az egérrel kell megfognunk a komponenst és áthúznunk egy másik helyre. A Ctrl lenyomása nélkül pedig változatlanul használhatjuk a nyomógombot. Ez a plusz funkció hasznos lehet olyan esetben, ha egy nyomógomb sort a felhasználó egyedileg szeretne összeállítani. Létrehoztunk egy olyan nyomógombot, melyet futási időben oda mozgathat a felhasználó, ahová akar. A mozgatáshoz a Ctrl lenyomása mellett az egérrel kell megfognunk a komponenst és áthúznunk egy másik helyre. A Ctrl lenyomása nélkül pedig változatlanul használhatjuk a nyomógombot. Ez a plusz funkció hasznos lehet olyan esetben, ha egy nyomógomb sort a felhasználó egyedileg szeretne összeállítani.

A példaprogram megnyitása előtt a MoveButton.pas-ban található komponenst fel kell vennünk a Delphi-be.

A példaprogram alapján könnyedén kiegészíthetünk más komponenseket is ezzel a plusz funkcióval, így bármely vezérlő elemet "mozgathatóvá" tehetjük.