eigene Mauszeiger-Grafik

Maa83 · Beiträge: 160 Win XP Pro D6 Ent

Hallo,

ich möchte eigene Mauszeiger benutzen. Also nicht den Zeiger, sondern ein kleines Bildchen oder so was in die Richtung. Am besten wäre es wenn ich .bmp Dateien verwenden könnten.

Danke für eure Hilfe

mfg
Martin

galagher · Verfasst: Mi 10.11.04 20:55

Maa83 hat folgendes geschrieben:

Also nicht den Zeiger, sondern ein kleines Bildchen oder so was in die Richtung. Am besten wäre es wenn ich .bmp Dateien verwenden könnten.

Also, wenn du wirklich .bmp's verwenden willst, nimm doch ein Image, lade eine Bitmap hinein , setzte Screen.Cursor := nil und lasse das Image stets dem (unsichtbaren) Mauscursor folgen.

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Maa83 · Beiträge: 160 Win XP Pro D6 Ent

ahhhhhhhhhhhhh
wieso komm ich nicht auf so was simples? :wink:

vielen Dank! Wird genauso gemacht.

PS: jedoch nicht := nil sondern := crNone !

Maa83 · Beiträge: 160 Win XP Pro D6 Ent

Hallo nochmal,

so leicht wie ich mir das vorgestellt habe ist es nun doch wieder nicht

es funktioniert zwar wunderbar mit dem folgenden Image, ABER:
Ich hatte vergessen zu erwähnen das sich der Mauszeiger über einer Paintbox befindet. Lasse ich nun das Image über die Paintbox bewegen zieht diese, wie zu erwarten, eine "Spur" da die Box nicht neu gezeichnet wird. Zeichne ich die Paintbox nach jeder Bewegung neu flakert dieses ohne Ende. Vor allem wenn ich schnelle Bewegungen mache...

das zweite Problem ist das ich meine OnMouseMove, OnMouseDown... Ereignisse der Paintbox nicht mehr benutzen kann da ich ja immer auf das Image klicke.

hoffe das ihr mir nochmals weiterhelfen könnt!

galagher · Verfasst: Do 11.11.04 18:08

Maa83 hat folgendes geschrieben:

Lasse ich nun das Image über die Paintbox bewegen zieht diese, wie zu erwarten, eine "Spur" da die Box nicht neu gezeichnet wird.
das zweite Problem ist das ich meine OnMouseMove, OnMouseDown... Ereignisse der Paintbox nicht mehr benutzen kann da ich ja immer auf das Image klicke.

Ich mache es so und da gibt's keine Probleme, was das "Spur" hinterlassen angeht: ...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.SetBounds(Image1.Left+X-Image1.Width div 2,
   Image1.Top+Y-Image1.Height div 2,Image1.Width,Image1.Height);
end;

... allerdings "verliert" die Maus manchmal das Image, wenn man die linke Maustaste nicht drückt. Ich habe das allerdings nur so improvisiert, aber vielleicht kennt ja jemand eine bessere Möglichkeit!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

galagher · Verfasst: Do 11.11.04 18:11

galagher hat folgendes geschrieben:

setzte Screen.Cursor := nil

Es muss natürlich korrekt heissen:

markieren

Delphi-Quelltext

1:	Screen.Cursor := crNone;

nil geht hier nicht!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Maa83 · Beiträge: 160 Win XP Pro D6 Ent

also ich habe jetzt eine "richtige" Lösung für mein Problem

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TFrm_Spielfeld.Load_Cursor(cursorName : String);
var h: THandle;
begin
    h:=LoadImage(0,PChar('dateiname.ico'), IMAGE_ICON,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
    if h=0 then begin
        ShowMessage('Cursor nicht geladen');
    end else begin
        Screen.Cursors[1]:=h;
        Self.Cursor:=1;
    end;
end;

mit dieser Prozedur setzte ich den Mauszeiger.

galagher · Verfasst: Fr 12.11.04 17:01

Maa83 hat folgendes geschrieben:

also ich habe jetzt eine "richtige" Lösung für mein Problem

Na ja, klar ist das professioneller... Aber ich dachte eben an Bitmaps, nachdem du

Maa83 hat folgendes geschrieben:

Am besten wäre es wenn ich .bmp Dateien verwenden könnten.

geschrieben hast... Wie auch immer!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme