Stworzyłem Unit2 i w nim chciałem coś napisać, ale nie kompiluje się kod, bo wywala komunikat:
Unknown directive: 'message'
przy linijce:
procedure WMDropFiles(var msg: TWMDropFiles); message WM_DROPFILES;
Wcześniej gdy kod miałem w Unit1 w Form1 to działał świetnie, ale wolałem zacząć klepać kod w nowych unitach dla czytelności, w unitami innymi nie mam na razie doświadczenia (nie potrzebę na innych unitach Form jakby co i nie wiem, czy czasem taki kod od Drag and Drop może być w innym Unicie, wolałbym go mieć w innym unicie, bo większy porządek wtedy).
Wklejam większy fragment kodu w razie czego:
unit DragAndDrop;
interface
uses
Dialogs, ShellAPI, Windows, Messages;
procedure Pokaz;
procedure WMDropFiles(var msg: TWMDropFiles); message WM_DROPFILES; //tej linijki się czepia
implementation
uses
Unit1;
procedure Pokaz();
begin
ShowMessage('test');
end;
procedure WMDropFiles(var msg: TWMDropFiles);
var
//...........
to co jest nie tak z? Proszę o pomoc.
[DCC Error] DragAndDrop.pas(9): E2070 Unknown directive: 'message'