FPC and Qt/ru
From Lazarus wiki
Jump to navigationJump to search
│
English (en) │
русский (ru) │
Введение
Существует несколько возможностей использования Qt:
Qt3
Another QtC based binding by Andreas
Первая направлена на Linux/Unix пользователей, вторая - для Win32.
Qt/Встраивание
Qt/E binding - порт FPC для ARM процессоров, который позволяет разрабатывать графические приложения для таких устройств, как Zaurus
Qt4
Qt4 Binding - Qt4 библиотека для FPC
Пример
Данный пример разработан для использования второго пакета доступа к Qt, описанного выше.
var
app: QApplicationH;
btn: QPushButtonH;
begin
// create static ( interfaced handled ) QApplicationH
app := NewQApplicationH(ArgCount, ArgValues).get;
// due to a bug in fpc 1.9.5 the WideString helper methods with default parameter are disabled
//btn := NewQPushButtonH('Quit', nil).get;
btn := NewQPushButtonH(qs('Quit').get, nil, nil).get;
btn.setGeometry(100, 100, 300, 300);
btn.show;
// override the virtual eventFilter method of btn
btn.OverrideHook.eventFilter := @TTest.MyEventFilter;
// and install the btn as it's own eventFilter
btn.installEventFilter(btn);
// connect Qt signal to Qt slot
QObjectH.connect(btn, SIGNAL('clicked()'), app, SLOT('quit()'));
...
Если вы знаете, как QT используется в C++, вы можете увидеть, что существует не так уж много различий.