FreePascal.ru

Хорошо.Заменил.

Поставил
PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Handle, GWL_WNDPROC, Int64(@WndCallback)));
Всё заработало.
Правда компилятор первый раз выдал:
unit1.pas(46,72) Hint: Conversion between ordinals and pointers is not portable
unit1.pas(46,18) Hint: Conversion between ordinals and ...

Поставил PrevWndProc := Windows.WNDPROC(SetWindowLong(Handle, GWL_WNDPROC, Int64(@WndCallback)));
Выдаёт те же ошибки.
unit1.pas(46,69) Hint: Conversion between ordinals and pointers is not portable
unit1.pas(46,18) Error: Illegal type conversion: "LongInt" to "<procedure variable type of ...

Благодарю за советы.
Во время компиляции кода предложенного InnI
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Windows, Clipbrd;

type

{ TForm1 }

TFormViewer = class(TForm)
Memo1&#58; TMemo;
procedure FormCreate ...

Здравствуйте.
Уже долгое время пытаюсь перевести код из Delphi в Lazarus.
Решил обратится за помощью на форум.
Дело в следующем.
Есть форма Form1, в ней компонент Memo1.
При каждом копировании текстовой информации, например из строки браузера,
в Memo1 в новую строку должно добавлятся содержимое ...

В общем после добавления

код

заработал.
Благодарю за подсказки.

Да, вы правы. Записал
uses Unit2;
-сработало.
А если не в ручную это писать, то в каком пункте меню в Lazarus можно это сделать ?
Типа как в Delphi:
"Чтобы MainUnit смог увидеть форму в About unit нужно её подключить.
Для этого перейдите в модуль Main unit и из меню File выберите пункт Use Unit ...

Здравствуйте.
На главной Форме есть кнопка, при нажатии которой должна появлятся Form2.

procedure TForm1&#46;SpeedButton24Click(Sender&#58; TObject);
begin
Form2&#46;Show;
end;

Создал форму 2. Но при компиляции компилятор останавливается на Form2&#46;Show; и выдаётся ошибка Identifier not found ...

Вместо SB_BOTTOM вписал цифру 7
Теперь компилятор опять останавливается на том же коде, но выдаёт уже только одну ошибку: Identifier not found "SendMessage"
Что и где ещё надо изменить или добавить в в коде ?

Спасибо что подсказали. В свойствах Memo WordWrap поставил False всё заработало.

В Memo1 выбран шрифт Symbol.
При использовании следующего кода
Memo1&#46;Text&#58;=#$D6+Edit1&#46;Text+'='+Edit4&#46;text;
в Memo1 #$D6 отображается как знак вопроса.
Что можно поставить вместо #$D6 чтобы после компиляции
в Memo1 отображался знак квадратного корня ?
Windows 7 (64 bit) Lazarus 1.0 ...

Переписываю свою программу из Delphi в Lazarus, так как преобразовать проэкт из Делфи в Лазарус не удалось.
В Delphi код который привожу далее работал.
При нажатии на кнопку procedure TForm1&#46;SpeedButton15Click(Sender&#58; TObject);
begin
добавляется новая строка в Memo2.
Memo2&#46;Text&#58 ...

Здравствуйте.Думаю в такой программе как Lazarus 1.0 должны работать все свойство в Memo. Но вот горизонтальный скролбар в Memo не работает. Интересно - это только у меня так, или у осальных тоже.
В Memo1 свойства Skrollbars выставляю ssHorizontal - не появляется горизонтальная полоса прокрутки.
В ...