Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Eigene Mauszeiger???
Masterhawk - Sa 27.08.05 00:24
Titel: Eigene Mauszeiger???
Wie kann unter Delphi einen eigenen Mauscursor integrieren?
Dieser soll dann unter Form1.Cursor ausgewählbar sein....Hoffe ihr könnt mir helfen...
Amateur - Sa 27.08.05 01:01
eigenen cursor einbinden: (anstatt fadenkreuz nimmste nen anderen namen für cursor und/oder res datei)
.res datei mit cursor erstellen...(im imageeditor von borland)
.res einbinden:
{$R Fadenkreuz1.res}
konstante:(ab 0 aufwärts)
const FADENKREUZ = 1;
cursor aus .res laden, in liste der cursors einfügen (dazu die constante) und zuweisen:
Screen.Cursors[FADENKREUZ] := LoadCursor(HInstance, 'FADENKREUZ');
form1.Cursor:=FADENKREUZ;
Masterhawk - Sa 27.08.05 13:18
Mein Code sieht jetzt so aus...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| unit mForm1;
const FADENKREUZ=1;
procedure TForm1.FormActivate(Sender: TObject);
begin
...
Screen.Cursors[FADENKREUZ] := LoadCursor(HInstance, 'Cursor1');
Form1.Cursor:=Fadenkreuz;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| program G4DPlay3;
uses
Forms,
Grund in 'mForm1.pas' ;
{$R Cursors.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. |
Bei ausführen kommt aber nur ein normaler Pfeil als Mauszeiger....
Amateur - Sa 27.08.05 21:36
{$R Cursors.res}
muss bei implementation unter {$R *.dfm}
also so:
Delphi-Quelltext
1:
2:
3:
4:
| implementation
{$R Cursors.res}
{$R *.dfm} |
außerdem muss bei LoadCursor(HInstance, 'Cursor1'); hinten der name des cursors stehn wie du ihn in deiner res abgespeichert hast... da sollte man immer besser nen anderen name verwenden und nicht einfach cursor1...
ansonsten haste was bei deiner res falsch gemacht...
wenns also mit den tipps oben net geht einfach nochma ne neue res machen
Masterhawk - So 28.08.05 12:20
Vielen Dank, es hat geklappt....
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!