Перейти к содержанию
Fire Monkey от А до Я

Skillsoft

Пользователи
  • Постов

    9
  • Зарегистрирован

  • Посещение

Посетители профиля

665 просмотров профиля

Достижения Skillsoft

  1. Я знаю, что это для VCL. У меня ХЕ7 и ХЕ8. Как это реализовать в FireMonkey? В каком классе находятся CM_MOUSEENTER и CM_MOUSELEAVE?
  2. пробовал делать обработчик сам, ругается на CM_MOUSEENTER и CM_MOUSELEAVE, не могу найти в каком они классе. procedure CMMouseEnter (var message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave (var message: TMessage); message CM_MOUSELEAVE;
  3. Можно конечно и так, только не совсем корректно работает. Например, если у края формы стоит какой нибудь контрол, то при входе мыши в форму в этой области, нет сработки. В принципе это не столь кретично, но все же хотелось бы узнать как сделать событие onMouseEnter
  4. Этих событий нет в форме: http://joxi.ru/vAWZXDkFQk472W
  5. Здравствуйте. procedure TForm1.FormMouseEnter(Sender: TObject); begin end; procedure TForm1.FormMouseLeave(Sender: TObject); begin end; Скажите, как можно реализовать эти события в FireMonkey?
  6. procedure DeleteMyComponent(Sender:TObject) var c:TComponent; begin c:=Components[1]; if c is TExpander then c.DisposeOf; c:=nil; end; Все удалил. Спасибо за ссылку и за внимание!
  7. А можно по подробнее? Пример какой-нибудь.
  8. Я так думаю, когда свойство-метод указывается без родителя, подразумевается TForm, или не всегда? Когда указываю Components или TVertScrollBox.Components набор компонентов всегда один. Код под Windows работает стабильно, проверял в цикле, и с другими компонентами внутри TExpander. http://joxi.ru/brR6aD3s1qk9r1 TPanel и TCheckBox находятся внутри TExpander
  9. Всем привет. Извеняюсь если не в тот раздел написал. Вобщем проблема такая. Есть код: procedure DeleteMyComponent(Sender:TObject) var c:TComponent; begin c:=Components[1]; if c is TExpander then FreeAndNil(c); end; При выполнении в Windows (32-bit Windows / 64-bit Windows) проблем не возникает, компонент удаляется, а при выполнении того же кода в Android ничего не происходит. Хотя привыполнении следующего кода: procedure DeleteMyComponent(Sender:TObject) var c:TComponent; begin c:=Components[1]; if c is TExpander then ShowMessage(c.ClassName); end; Выходит Message с текстом TExpander Версия Delphi http://joxi.ru/Q2K75nWFR7V42j Скажите, может кто в курсе!? Зарание спасибо
×
×
  • Создать...