Miten saadaan aikaan omaan ohjelmaan raahattava komponentti. Eli miten helposti voin siirtää vaikkapa image-komponenttia tekemäni ohjelman ikkunassa toiseen paikkaan.
"Raahaaminen"
3
212
Vastaukset
- Accept..
aika helppoa se on ja tässä on ihan simppeleitä esimerkkejä, toivottavasti niistä on apua:
http://delphi.about.com/od/vclusing/a/dragdrop.htm - Kokeileppa tätä
Testaa kuvan liikutelua lomakkeella vaikkapa tällä esim. koodilla.
Luo ensin uusi sovellus. Laita lomakkeelle (form) button ja image-komponentit.
Generoi seuraavat IDE:llä seuraavat tapahtuma rungot ja täydennä ne seuraavasti
(jolloin saat sovelluksen joka toisella napin painaksuella voidaan liikuttaa kuvaa).
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
begin
TImage(Source).Left := X;
TImage(Source).Top := Y;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Image1.DragMode=dmManual
then Image1.DragMode:=dmAutomatic
else Image1.DragMode:=dmManual ;
end;
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TImage) ;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssCtrl in Shift then Image1.BeginDrag(True) ;
end; - aaaaaaaaaaaaaaa
Raahamisen opetusta:
http://users.jyu.fi/~vesal/kurssit/winohj/delphi/moniste/m/d.html#Heading463
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Poliisitehtävä alkuviikosta Maisan kotona
Iltasanomat: Helsingin poliisilaitos vahvistaa, että Vantaalla on ollut poliisitehtävä kyseisenä ajankohtana. Poliisin862048Tämä on sinulle vaikka kaikki lukee
Vaikka kuinka olet viisas ja kaikin puolin velho, niin et tiedä tilanteestani. Senkin takia menetät mielenkiinnon. Eikä111662- 1021152
Lulu selvityttää Elokapinan lakkautusta
Persukannattajien mielistely otti Lulu Ranteella aika tavalla runtua, kun hän aikoo selvityttää mahdollisuuksia Elokapin3501126Ensitreffit Matti joutuu "ulkoruokintaan" - Väärinymmärrysten suossa Taina-vaimon kanssa: "Oli..."
No nyt on kyllä väärinymmärrystä kerrakseen… Mitä luulet, pysyykö Taina ja Matti yhdessä vai onko tulevaisuudessa ero ed31113Harmi, kun sillä nousi
kaikki huomio päähän. Vaikutti aluksi niin mukavalta ja vaatimattomalta 😔53851Täytyy sanoa
Että olit kyllä mielenkiintoisin ja omaperäisin nainen mitä olen koskaan tavannut. Aivan kuin joku olisi tiputtanut sinu21839Miten saisin
Hurmattua sinut uudelleen,? Pissin omiin muroihini ensinmäisellä kerralla koska olin tyhmä ja liiaksi kiinni menneess31777Persu Meri Valkama kadehtii Sanna Marinin menestystä
Taas yksi persu tuli nolaamaan itsensä kadehtiessaan menestynyttä Suomen kansan supertähteä Sanna Marinia. https://demo237737Raamatun tärkein lause
Ja Mooses tuli alas vuorilta missä jumala oli, Mooseksen mukaan, ilmoittanut hänelle, että hän ja koko juutalainen väki,367719