решил попробовать потихонечку перевести одни из проектов с дельфи на фпс с использованием лазаруса.
перевел внутренности теперь они компилируются и на дельфи и на фпс и вроде как работают
теперь взялся за интерфейсную часть и столкнулся с небольшой проблемкой - не работает вот такой код:
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Windows,
Classes, SysUtils, LResources, Forms, Controls, Graphics, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure UserMessages(var AMsg: TMessage); message WM_USER;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(Handle, WM_USER, 0, 0);
end;
procedure TForm1.UserMessages(var AMsg: TMessage);
begin
Caption := 'hello';
end;
initialization
{$I unit1.lrs}
end.
т.е. при нажатии на кнопку посылается сообщение окну которое в свою очередь меняет текст в шапке окна ....
подскажите почему этот код не работает в лазарусе?
использую вот эту версию лазаруса: Lazarus-0.9.24-fpc-2.2.0-20071114-win32.exe
