Вывод сообщений в Билдере

[Lanist]

Подскажите есть ли возможность вывести сообщение пользователю на несколько секунд, чтоб не тыкать ОК, как в ShowMessage.

[merax]

Первое что на ум приходит - это

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Timer1->Enabled = true;

        MessageBoxA(NULL, "Text", "Find", MB_OK);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        HANDLE hWnd;

        hWnd = FindWindowA(NULL, "Find");

        if(!hWnd)
        {
            MessageBoxA(NULL, "Can't find window", "Error", MB_OK);
        }
        DestroyWindow(hWnd);
         
        Timer1->Enabled = false;
}