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
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.
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?