AV при TwinControl.GetHandle

[Человек_Борща]

Всем привет!

Возникла проблема с до боли простым кодом:

function HLR_MsgBox(MsgText: string; MsgBoxType: Cardinal): Integer;
begin
  Result := MessageBox(MainForm.Handle, PAnsiChar(MsgText), PAnsiChar(RsMsgBoxCaption), MsgBoxType);
end;

При некоторых случаях у юзеров выпадет такой баг:

exception class   : EAccessViolation
exception message : Access violation at address 004D96AF in module 'HLR.exe'. Read of address 00000180.

main thread ($bb8):
004d96af +003 HLR.exe      Controls              TWinControl.HandleNeeded
004d96d5 +005 HLR.exe      Controls              TWinControl.GetHandle
005d9946 +036 HLR.exe      GlobalStrings 166  +1 HLR_MsgBox
0061a2c8 +11c HLR.exe      HLR            97 +18 initialization
76c833c8 +010 kernel32.dll                       BaseThreadInitThunk

Почему он выпадает? Потому что MainForm.Handle не существует? Надо указывать Application.Handle? Ранее указывал 0, но появлялась кнопка на таскбаре..

[Аватар]

100 лет примерно так же использую в Д7, только первый параметр= 0 и ни каках проблем

[Человек_Борща]

Нуль - это рабочий стол, и по-томому у меня на панели задач при каждом месадже боксе вылазила новая кнопка - это не есть хорошо(Не люблю когда там +100500 кнопок). Решение нашёл. Указывать Application.Handle.

А так все мессаджбоксы будут привязаны к твоему хэндлу и не будут рисовать новых кнопок.

Вопрос решился. Всем спасибо.