Witam. Czytam sobie tą książkę i skopiowałem kod z rozdziału o komunikatach i wkleiłem do lazarusa żeby sprawdzić jak to działa, ale po kliknięciu uruchom wyskakuje błąd "mainfrm.pas(33,1) Error: Error while linking". Używam Lazarusa pod Windows XP, a kody prezentują się tak:
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
{ TMainForm }
TMainForm = class(TForm)
lblInfo: TLabel;
private
procedure WmLButtonDown(var Msg : TMessage); message WM_LBUTTONDOWN;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
{ TMainForm }
procedure TMainForm.WmLButtonDown(var Msg: TMessage);
begin
lblInfo.Caption := 'Użytkownik wcisnął lewy klawisz myszy!';
end; //TO JEST TA 33 linia z błędu
end.
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, MainFrm, LResources
{ you can add units after this };
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
{$I project1.lrs}
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Name formy to "MainForm", a label'a na nim to lblInfo. Z tego co czytałem na forach to wszędzie pisało że to przez polskie litery w nazwie, ale ja zapisywałem na pulpicie, od razu na dysku c i zawsze to samo. Będę wdzięczny za pomoc.