Entwickler-Ecke

Sonstiges (Delphi) - eigenen Mauszeiger verwenden


Luncustaf - Do 10.04.03 14:24
Titel: eigenen Mauszeiger verwenden
Hi,

ich hab mir nen eigenen Mauszeiger gemacht - und nun würde ich gerne wissen wie ich den in mein programm bringen kann - ich hab das gesehen bei den zeoslib komponenten das wenn nen sqlstatement ausgeführt wird das dann die sanduhr mit dem sql untendran kommt - sowas würde ich auch gerne in mein programm bringen weis jemand wie das geht?


gr€€tz


Inferno - Do 10.04.03 14:45
Titel: Hi
Also du musst den Cursor in eine Resourcendatei packen.

zb. NEWCURSOR.RES => kannste im Bild Editor machen

Dann musste die resourcendatei im Programm einbinden.


Quelltext 
1:
 
{$R NEWCURSOR.RES}


Dann definierste ne constante


Quelltext 
1:
 
const newcursor = 1;


Jetzt lädts du die resource zb in FormCreate


Quelltext 
1:
 
  Screen.Cursors[newcursor] := LoadCursor(HInstance, 'Testcursor');


jetzt musste nur noch im programm wo sich der cursor ändern soll angeben das der cursor sich in den cursor newcursor also die constante ändern soll.

z.B.


Quelltext 
1:
 
  Form1.DragCursor := newcursor;


ich hoffe mal das funzt so

also dann tschüß


Luncustaf - Do 10.04.03 15:28
sers,

funktioniert nicht wirklich also es passiert nichts :/ wenn ich auf den toolbuttonklicke wo was passieren soll :/

kannstdu mir vllt sagen wo genau ich die constante einbinden muss und wo genau die ressource datei - weis net genau wo ich das machen muss


gr€€tz


Inferno - Do 10.04.03 16:00
Titel: hi
Sorry mein fehler ich kann immer so schlecht erklären :)

erstellste mal ne neue anwendung und fügste den text in die erste unit ein


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const newcursor = 1;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R CURSOR.RES}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[newcursor] := LoadCursor(HInstance,'MEINCURSOR');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Cursor := newcursor;
end;

end.


Wichtig:

Du erstellst mit dem Bildeditor von delphi ne resourcen datei und sagst dann Neu->Cursor.
Dort malste deinen Cursor und machst das fenster mit dem bild zu. dann siehste die structur deiner resourcen datei dort nennste den cursor wo steht "cursor1" in "MEINCURSOR" um. und speicherst die resoucendatei unter CURSOR.RES ab. Also der name des cursor bildes MUSS der gleiche sein wie du ihn bei LoadCursor als 2. parameter angibst.

So ich hoffe es funzt jetzt :)

ansonsten kann ich dir auch ein beispiel prog mailen.

sagst halt bescheid

ok bye


Luncustaf - Do 10.04.03 19:03
sers,

also hab das nu so drinnrn wie du aber irgendwie funzt das net :/

wäre net wenn du mir nen beispiel prog mailen könntest.

Luncustaf@gmx.de


thx und gr€€tz


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!