MagistrAnatol Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Добрый день. Помогите переделать код с делфи на с++ Код: unit Forms.Main; ...... procedure TMainForm.ShowActionExecute(Sender: TObject); begin   FMaterialButtonInfo.Frame.OnClick :=     procedure     begin       ShowMessage('This is my message!');     end; end;   Код:   unit Frames.MaterialButton; type ...   private     FOnClick: TProc;   public       property OnClick: TProc read FOnClick write FOnClick;   end;   implementation   {$R *.fmx}   procedure TMaterialButtonFrame.Circle1Click(Sender: TObject); begin   if Assigned(FOnClick) then     FOnClick(); end; end.       Добавлено: И еще- как передать обработчик через анонимную функцию *.h Код: private:    // User declarations     TNotifyEvent FOnClick; public:        // User declarations     __fastcall TForm2(TComponent* Owner);     __property System::Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};   *.cpp Код:     Form2->OnClick  =  [](System::TObject *Sender)->TNotifyEvent { ShowMessage("Clicked"); }; получаю ошибку [bcc32c Error] Unit1.cpp(33): assigning to 'System::Classes::TNotifyEvent' (aka 'void ((__closure *))(System::TObject *) __attribute__((fastcall))') from incompatible type '(lambda at Unit1.cpp:33:21)' Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 13:55 18-08-2022

useretail Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {       switch (uMsg) {         case WM_CREATE:             {                 CreateWindow(TEXT("Button"), TEXT("Click me"), WS_VISIBLE | WS_CHILD, x, y, width, height, hwnd, (HMENU) 1, NULL, NULL);                 break;             }         case WM_COMMAND:             if (LOWORD(wParam) == 1)                 MessageBox(hwnd, "This is my message!", NULL, NULL);             break;     } } так что-ли? я в делфях не силен Всего записей: 4615 | Зарегистр. 14-09-2007 | Отправлено: 23:58 18-08-2022

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Переделать код Delphi на C++Builder

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование