GetCursorPos

**Anuran**

hai.

habe vor kurzen erst mit delphi angefangen. ein paar tutorials hab ich schon durch aber mit GetCursorPos hab ich grad ein problem.

habe den code zwar gefunden und auch schon versucht einzubauen aber bekomme da einige fehler und weiss nicht weiter

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Image2: TImage;

  private

    { Private-Deklarationen }

  public

  procedure WMNCHitTest(var msg: TWMNCHitTest);

  message wm_NCHitTest;

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCHitTest(var msg: TWMNCHitTest);

begin

  inherited;

  if msg.Result = htClient then

    msg.Result := htCaption;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Label1.Caption := IntToStr(Mouse.CursorPos.X);

  Label2.Caption := IntToStr(Mouse.CursorPos.Y);

end;

end.

markieren

Code:

			[Fehler] Unit1.pas(35): Undefinierter Bezeichner: 'Timer1Timer'

[Fehler] Unit1.pas(35): ';' erwartet, aber '(' gefunden

[Fehler] Unit1.pas(37): Undefinierter Bezeichner: 'Label1'

[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'Label2'

[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

was hab ich falsch gemacht?

GetCursorPos

GetCursorPos

Forumregeln