Miten saadaan aikaan omaan ohjelmaan raahattava komponentti. Eli miten helposti voin siirtää vaikkapa image-komponenttia tekemäni ohjelman ikkunassa toiseen paikkaan.
"Raahaaminen"
3
252
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
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️651483Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia113951- 58781
YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä48774- 57730
Missä kaikessa olet erilainen
Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.39717Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan72707Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606026689Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.41677Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli68672