Miten saadaan aikaan omaan ohjelmaan raahattava komponentti. Eli miten helposti voin siirtää vaikkapa image-komponenttia tekemäni ohjelman ikkunassa toiseen paikkaan.
"Raahaaminen"
3
214
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
Kuuluuko ehkäisy parisuhteessa molemmille
Mieheni pelkää kovasti sitä, että minun käyttämä ehkäisy (pillerit) pettävät ja että tulisin raskaaksi. Hänellä on jo en621214Suhun ihastuminen oli liikaa mulle ...
Se meni jo sairauden ja sekavuuden puolelle. Oisin tehnyt melkein mitä vain, että saisin sut ja se ei ole tervettä. Vars341020- 631010
Tänään valtuustossa
Striimi rikki. Mennään saliin ja otetaan pussillinen mätiä omenoita mukaan. Popcornit valmiiksi kun Savola alkaa puhumaa261007- 69955
- 46941
- 73892
- 17870
- 56852
Minkälaiset hiukset
kaivatullasi on? Miehellä Kenties ananas, puolikalju jne jne Naisella kenties vaaleat kiharat jne jne27836