title image


Smiley Re: Cursor
Hallo KCAlso um den Cursor in Delphi einzubinden mußt du ein OnCreate Querry erzeugen!d.h. In Delphi auf deine Form klicken und dann im Objektinspector unter der Registerkarte 'Ereignise'auf die Rubrik OnCreate doppelklicken. Dann wird folgender Code erzeugt:procedure TForm1.FormCreate(Sender: TObject);beginend;(Hier kommen alle Ereignisse hinein die beim Laden des Programmes ausgeführt werden sollenwie z.B. Cursor Laden)Als nächstens mußt du diesen Quelltext eingeben (zwischen begin und end;)Screen.Cursors[crMyCursor ]:= LoadCursorFromFile('xy.cur');Cursor := crMyCursor;'xy.cur' steht für deinen Cursor den du laden möchtest.Der Cursor muß sich in deinem Arbeitsverzeichnis befinden. Sollte er sich nicht dortbefinden, mußt den den ganzen Pfad angeben (z.B. var a:String;begina:=c:\delphi4\Projekts\meinCursor\xy.cur;Screen.Cursors[crMyCursor ]:=LoadCursorFromFile('a');Als letztes müssen wir nur noch crMyCursor definieren und das geschieht, indem wir überunserer Prozedur oder im { Private-Deklarationen } Bereich unsere Konstante definieren.const crMyCursor = 5;procedure TForm1.FormCreate(Sender: TObject);beginend;Und der fertige Quelltext solte nun so aussehen:const crMyCursor = 5;procedure TForm1.FormCreate(Sender: TObject);beginScreen.Cursors[crMyCursor ]:= LoadCursorFromFile('xy.cur');Cursor := crMyCursor;end;Das sollte geklappt haben! Es ist aber Vorteilhafter deinen Cursor in einer Resource-Datei zu speichern und dann nachbedarf zu laden:Dazu mußt du den Bildeditor im Delphi4 Verzeichnis starten und unter Datei\Neu\ResourcenDatei (.Res) eine Neu Resource Datei anlegen. Der Rest erklärt sich fast von selbst.Und diesen erzeugten Cursor kann man auch in Delphi laden indem man folgendes macht.ResourceDatei einbinden:... private { Private-Deklarationen } public { Public-Deklarationen } end;var Form1: TForm1;implementation{$R XY.res}//!!!Wichtig...XY.res steht für den Namen deiner ResourceDatei.Und im OnCreate Query (s.o.)Screen.Cursors[1]:=LoadCursor(HInstance, 'CURHAND') Form1.Cursor := 1; CURHAND wäre hier der Name deines Cursors der eingebunden werden soll!Na alles klar?Wenn nicht, dann kannst du mich unter s690342@tfh-berlin.de erreichen.p.s. Bin auch Anfänger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: