"Raahaaminen"

M i t e n

Miten saadaan aikaan omaan ohjelmaan raahattava komponentti. Eli miten helposti voin siirtää vaikkapa image-komponenttia tekemäni ohjelman ikkunassa toiseen paikkaan.

3

197

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Accept..
    • 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

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Joonas Rask viettänyt omasta

      mielestään kivaa iltaa hyvässä hengessä.. https://www.is.fi/sm-liiga/art-2000010582941.html
      Maailman menoa
      2
      1881
    2. Anni Sinnemäki pilasi tämän kaupungin

      Matti, 72, on myynyt jäätelöä Espalla 27 vuotta, mutta nyt hänelle riittää: "Anni Sinnemäki pilasi tämän kaupungin". Rep
      Maailman menoa
      10
      1178
    3. Nythän sitä sopii hallituksen lepäillä lomilla

      kun on Suomi saatu perikadon partaalle. Työpttömyys on huipussaan ja velkaa on vedetty kaksin käsin. Valtion yhtiöistä o
      Maailman menoa
      49
      960
    4. J mies jos vain vielä voit

      Tule luo https://m.youtube.com/watch?v=F5pinBuBRwE&pp=ygUdam9zIHZhaW4gdmllbMOkIHZvaXQgdHVsZSBsdW8%3D Ikuisuutta ei van
      Ikävä
      10
      880
    5. Onko sulla joku

      Suunnitelma jo olemassa
      Ikävä
      58
      877
    6. Mites ois nainen?

      Lähdettäisiinkö yhteiselle lenkille joku ilta? Vaikka sinne metsään. Olisi varmaan juteltavaa puolin ja toisin.
      Ikävä
      59
      821
    7. Koska kumpikaan ei saa sanaa suustaan

      niin miten olisi, jos opeteltaisiin viittomakieli ja hoidettaisiin kommunikointi sillä? Olisi varmasti helpompi murtaa j
      Ikävä
      52
      792
    8. Captain suuttui ja mustaksi muuttui

      Nyt on sitten laadittu oikein tiedote. Viimeksi oli siirtämässä laivojaan kun hävisi oikeudessa Savonlinnan kaupunkia va
      Savonlinna
      38
      748
    9. Kolme parasta piirrettä sinussa

      1 Huumorintaju 2 Turvallisuus 3 Sait minun parhaat puolet esiin Miehelle
      Ikävä
      17
      734
    10. Minua nainen vaivaa vähän yksi asia.

      No se vaan kun pidät minua epäilyttävänä ja jotenkin minulla on sellainen olo että kiinnität tekemisiini huomiota vähän
      Ikävä
      25
      723
    Aihe