Лидеры

Делаем как обычно, если надо переопределить какое-то событие окна interface uses {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.Messages, FMX.Platform.Win, {$ENDIF} System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs; type TMainForm = class(TForm) private procedure CreateHandle; override; {$IFDEF MSWINDOWS} procedure WMIMENotify(var Msg: TMessage); message WM_IME_NOTIFY; {$ENDIF} public end; var MainForm: TMainForm; implementation {$R *.fmx} {$IFDEF MSWINDOWS} var OldWndProc: Pointer = nil; function NewWndProc(Wnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; var Mess : TMessage; begin case Msg of WM_IME_NOTIFY: begin Mess.Msg := Msg; Mess.WParam := wParam; Mess.lParam := lParam; Mess.Result := 0; MainForm.Dispatch(Mess); Result := Mess.Result; end; else Result := CallWindowProc(OldWndProc, Wnd, Msg, WParam, LParam); end; end; {$ENDIF} { TMainForm } procedure TMainForm.CreateHandle; begin inherited CreateHandle; {$IFDEF MSWINDOWS} OldWndProc:= Pointer(SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_WNDPROC, Integer(@NewWndProc))); {$ENDIF} end; {$IFDEF MSWINDOWS} procedure TMainForm.WMIMENotify(var Msg: TMessage); begin {что-то делаем} end; {$ENDIF}

Попробовал... Не понял что такое LookUp.Handle - заменил на просто Handle и вызываю только если Msg.WParam = IMN_SETCANDIDATEPOS. Всё работает без ошибок. Вот мой код procedure TMainForm.WMIMENotify(var Msg: TMessage); var Imc: HIMC; ImeCandidateFormProperties: TCandidateForm; begin if Msg.WParam = IMN_SETCANDIDATEPOS then begin Imc:=ImmGetContext(FMXHandleToHWND(Handle)); ImmGetCandidateWindow(Imc,0,@ImeCandidateFormProperties); ImeCandidateFormProperties.dwStyle:=CFS_CANDIDATEPOS; ImeCandidateFormProperties.ptCurrentPos.X := 100; ImeCandidateFormProperties.ptCurrentPos.Y := 100; ImmSetCandidateWindow(Imc,@ImeCandidateFormProperties); ImmReleaseContext(FMXHandleToHWND(Handle),Imc); end; end;

Приложение для получения информации о составе основных комплектующих, входимостей по моделям автобусов и троллейбусов МАЗ на смартфонах. А также некоторые статистические данные,прочей информации и расчёты. Работает на устройствах под OS Android версий: 4.4 и выше, 4.1.х, 4.2.х, 4.3.х, 4.0.3, 4.0.4, 2.3.3...2.3.7. Протестировано на экранах 5 дюймов. Может пригодиться дилерам МАЗ, лицам эксплуатирующим пассажирскую технику МАЗ, лицам не конструкторских служб МАЗ. Особенно в случае нахождения в месте недоступном к интернету и компьютеру. Существует и более расширенная версия для OS Windows. Пожалуйста, с предложениями и пожеланиями обращайтесь к разработчику: ведущему инженеру-конструктору Кирееву Олегу по тел. +375 29 676 13 84 или пишите на kireevoleg1966@gmail.by. Буду рад Вашему любому отзыву. С Уважением. BOKAv11.52.rar

Зайдите в гугл картинки и поищите что-то типа mobile UI design. Также у Delphi есть пакет премиум скинов - Firemonkey premium styles.

СпасиБО ребята за советы. Постараюсь учесть и прочитать.

Чувак! Это же МАЗ!!! Все должно быть брутально! ?

Уххх... да... Рекомендация. 1. Уберите "вырви глаз" синий цвет шрифта. 2. Не используйте Windows иконки. Смотрятся убого. Это для начала... Почитайте про Material Design. В сети информации полно.

А в чем загвоздка? Достать поле из JSON - вроде просто, обычная работа с JSON далеко не самой сложной структуры. Раскодировать из Base64 - uses System.NetEncoding; TNetEncoding.Base64.DecodeStringToBytes и сохранить их в файл Потом открыть файл через интент.

Приложение для наглядного обучения работы некоторых механизмов автомобиля и автобуса. Работает в OS Windows. Есть возможность записи процесса в формате AVI. Можно изменять прозрачность и посмотреть что внутри. СпасиБО EMBARCADERO! Автор: Олег Киреев - ведущий инженер-конструктор. kireevoleg@gmail.by тел. +375 29 676 13 84. Республика Беларусь г.Минск. 3D Работа механизмов.rar