Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
28. Aug 2008
Sowohl
if Screen.Cursors = NULL then
als auch
if Screen.Cursors = 0 then
sind unter Windows 95 (kein IDC_HAND) unwahr. (Erwartet: wahr)
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
crHandPoint ist eine Konstante. Eigentlich sollte mein crWindowsHand, das crHandPoint substituieren soll, auch eine Konstante sein, ansonsten kann ja jeder das Teil verändern und damit ungültig machen. :|
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
So müsste es nun eigentlich funktionieren. Ich teste es morgen auf meinem 95-Testpc
const
NIDC_HAND = 32649;
IDC_HAND = MakeIntResource(NIDC_HAND);
var
crWindowsHand: TCursor;
procedure TForm1.FormCreate(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
Hallo.
Vielen Dank für den Code! Ich hatte meine Recherchen bereits über Tage partiell verteilt, aber nie etwas passendes gefunden.
Hier der vereinfachte Code:
const
crWindowsHand = 32649;
IDC_HAND = MakeIntResource(crWindowsHand);
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
Ich habe jetzt schon so viel probiert, aber irgendwie funktioniert das nicht ganz...
const
crWindowsHand = 30; // 0..22 belegt
// http://www.delphi-library.de/viewtopic.php?p=258
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors := LoadCursor(HInstance, 'IDC_ARROW');
form1.Cursor := crWindowsHand;
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
Der VB-Code erzeugt also tatsächlich den aktuell ausgewählten Handcursor? Kann man diese Funktionalität dann in Delphi übertragen?
// Edit: Altes Visual Basic 6 Projekt ausgegraben und mit modifizierten Hand-Cursor getestet: Es funktioniert tatsächlich. Aber wie macht man das in Delphi? :glaskugel:
Forum: Sonstige Fragen zu Delphi
Delphi
by blackdrake,
27. Aug 2008
Hallo.
Entschuldigt bitte, dass ich das Thema wieder hochhole. Ich habe das selbe Problem, möchte jedoch den Hand-Cursor NICHT "hard-coden". Wenn sich der Benutzer entschließt, in der Systemsteuerung unter "Maus" -> "Zeiger" -> "Verknüpfungsauswahl" z.B. einen Hundehaufen als Hand-Zeiger einzustellen, dann ist es ja irgendwie unpassend, wenn die Standardhand in der Delphi-Applikation...