Undefinierter Bezeichner (function findet procedure nicht)

[burning]

Hi,
Ich habe eine Funktion (gekürzt auf das Wesentliche):

function GetKoord_V(): integer;
begin
ScreenToBitmap(1125,959);
end;

Beim Kompilieren wird natürlich gemeldet, dass ScreenToBitmap ein 'Undefinierter Bezeichner' sei, is auch irgendwie logisch, da die Prozedur erst später definiert wird. Also hab ich die Prozedur oben unter die Private { Private-Deklarationen } geschrieben, hilft aber nicht. Wo is mein Denkfehler... :gruebel:
THX4HELP

[sakura]

Zeig mal etwas mehr Code - wenigstens die Reihenfolge der Deklarationen und der Implementationen ;-)

...:cat:...

[mirage228]

function GetKoord_V()... ist keinem Typ untergeordnet, sowie es scheint.

wenn deine Function z.B. TForm1.ScreenToBitmap(..) heisst, dann müssest du entweder

Form1.ScreenToBitmap in GetKoord_V aufrufen oder GetKoord_V nach private oder public (dort wo ScreenToBitmap aufgeführt ist) verschieben.

mfG
mirage228

[burning]

1.
mein ganzer Code hockt in einer Quellcodedatei

2.

Delphi-Quellcode:

type
  TCaptureIt = class(TForm)
*snip*
    procedure button_endeClick(Sender: TObject);
    procedure button_list_updateClick(Sender: TObject);
    procedure listbox_handlesClick(Sender: TObject);
    procedure button_startClick(Sender: TObject);
    procedure button_top50Click(Sender: TObject);
    procedure button_amapClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure button_abbruchClick(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; // für Hotkey
    procedure ScreenToBitmap(x,y: integer);
    function CompareImages16(b1, b2: TBitmap): integer;
    function CompareImages32(b1, b2: TBitmap): integer;
  public
    { Public-Deklarationen }
  end;

3.

Delphi-Quellcode:

implementation

{$R *.dfm}

// FUNCTIONS

// PROCEDURES

-> function GetKoord_V(): integer; [b]kommt vor[/b] procedure ScreenToBitmap(x,y: integer);

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[mirage228]

1. function GetKoord_V() ab nach private oder public (je nachdem)

2. unten TCapture.GetKoord_V: Integer und TCapture.ScreenToBitmap(x,y: integer): Integer schreiben

mfG
mirage228

[burning]

Ich danke euch beiden!
Ihr seid echt die guten Geister dieses Forums! :-D