Skillsoft

Я знаю, что это для VCL. У меня ХЕ7 и ХЕ8.

Как это реализовать в FireMonkey?

В каком классе находятся CM_MOUSEENTER и CM_MOUSELEAVE?

пробовал делать обработчик сам, ругается на CM_MOUSEENTER и CM_MOUSELEAVE, не могу найти в каком они классе.

procedure CMMouseEnter (var message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave (var message: TMessage); message CM_MOUSELEAVE;

Можно конечно и так, только не совсем корректно работает. Например, если у края формы стоит какой нибудь контрол, то при входе мыши в форму в этой области, нет сработки. В принципе это не столь кретично, но все же хотелось бы узнать как сделать событие onMouseEnter

Этих событий нет в форме:

http://joxi.ru/vAWZXDkFQk472W

Здравствуйте.

procedure TForm1.FormMouseEnter(Sender: TObject);
begin

end;

procedure TForm1.FormMouseLeave(Sender: TObject);
begin

end;

Скажите, как можно реализовать эти события в FireMonkey?

procedure DeleteMyComponent(Sender:TObject)
var
  c:TComponent;
begin
  c:=Components[1];
  
  if c is TExpander then
    c.DisposeOf;
    c:=nil;
end;

Все удалил.

Спасибо за ссылку и за внимание!

В мобильных платформах работает ARC - пока где-нибудь есть ссылка на объект, он "живёт".

Вам надо просто убрать ссылки на этот компонент.

Т.е. удалить его из списка компонент.

А если вам надо где-то временно хранить ссылку на него, можно объявить такую ссылку "слабой", weak

А можно по подробнее? Пример какой-нибудь.

Я так думаю, когда свойство-метод указывается без родителя, подразумевается TForm, или не всегда?

Когда указываю Components или TVertScrollBox.Components набор компонентов всегда один.

Код под Windows работает стабильно, проверял в цикле, и с другими компонентами внутри TExpander.

http://joxi.ru/brR6aD3s1qk9r1

TPanel и TCheckBox находятся внутри TExpander

Всем привет.

Извеняюсь если не в тот раздел написал.

Вобщем проблема такая.

Есть код:

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

Скажите, может кто в курсе!?

Зарание спасибо