| Autor |
Beitrag |
hibbert
  
Beiträge: 1007
WinServer2003, Win XP, Linux
D6 Pers, D05
|
Verfasst: Di 11.03.03 19:08
hai,
ich habe eine leere form vor mir (  ). Und nun kommts hart auf hart ich habe noch ein image draufgepackt ( ). doch nun zu meiner frage:wenn ich auf das Bild klicke ( und gedrückt halte) mit dem cosur der Maus bewegen und wenn ich den klick aufhebe ( sprich die maustaste loslasse) dann soll das image dort bleiben wo es ist.
das dürfte doch eigendlich gehen, oder? und wie? vielen dank
mfg hibbert _________________ I kunnen väl svara endast ja eller nej
Om i viljen eller nej
|
|
Keldorn
Beiträge: 2266
Erhaltene Danke: 4
Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
|
Verfasst: Di 11.03.03 20:29
_________________ Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
|
|
GSE
Beiträge: 740
Win 2k, Win XP Pro
D5 Prof, D6 Ent, D2k5 PE
|
Verfasst: Di 11.03.03 20:54
| Zitat: | | dann soll das image dort bleiben wo es ist. |
Wenn es dort bleiben soll wo es ist, was ist daran das Problem? Das ist doch schon so! 
mfg
GSE
[Achtung: Wer diesen Beitrag ernst nimmt ist selber schuld  ] _________________ Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)
|
|
hibbert 
Beiträge: 1007
WinServer2003, Win XP, Linux
D6 Pers, D05
|
Verfasst: Di 11.03.03 21:23
| GSE hat folgendes geschrieben: | | Zitat: | | dann soll das image dort bleiben wo es ist. |
Wenn es dort bleiben soll wo es ist, was ist daran das Problem? Das ist doch schon so! |
dazu sag ich nur hahaha... (ich hoffe du weißt wie das gemeint war  ) abba trotzdem danke. achso Keldorn danke für den link, aber das funzt leider nicht 
gibt es da noch eine andere möglichkeit?
mfg hibbert _________________ I kunnen väl svara endast ja eller nej
Om i viljen eller nej
|
|
GSE
Beiträge: 740
Win 2k, Win XP Pro
D5 Prof, D6 Ent, D2k5 PE
|
Verfasst: Di 11.03.03 21:58
  Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
ReleaseCapture;
TWinControl(Image1).perform(wm_syscommand,sc_dragmove, 0);
end; |
[edit] UUps!  Das ist mir jetzt peinlich!, man sollte Beiträge eben immer genau durch lesen? (vonwegen LInk geht net: Procedure geht net!)[/edit]
mfg
GSE
Moderiert von  Klabautermann: Code-Tags hizugefügt._________________ Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)
|
|
GSE
Beiträge: 740
Win 2k, Win XP Pro
D5 Prof, D6 Ent, D2k5 PE
|
Verfasst: Di 11.03.03 22:17
Oben genannte Version funktioniert nur bei von TWinControl abgeleiteten Kompos, für TImage trifft das ja nicht zu!
Hier eine wenig längere Version, die aber funktionieren sollte: delphi.about.com/lib.../weekly/aa080399.htm
mfg
GSE _________________ Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)
|
|
hibbert
Beiträge: 1007
WinServer2003, Win XP, Linux
D6 Pers, D05
|
Verfasst: Di 11.03.03 22:30
Cool danke, ich habe den code noch etwas abgeändert, sodass man nicht die [strg] tase drücken muss, abba egal es funzt.
danke
kann man jetzt auch noch bestimmen, dass das image nur an bestimmten stellen ''andoggen'' darf? zum beispiel nur auf einem anderen image?
mfg hibbert
_________________ I kunnen väl svara endast ja eller nej
Om i viljen eller nej
|
|
Keldorn
Beiträge: 2266
Erhaltene Danke: 4
Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
|
Verfasst: Di 11.03.03 22:49
| hibbert hat folgendes geschrieben: |
achso Keldorn danke für den link, aber das funzt leider nicht
|
upps, hatte das immer mit Buttons und labels so gemacht, Images waren da nicht auf der Tagesordnung  _________________ Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
|
|
