تكنيك جلوگيري از نمايش يك فرم

در دلفي مي توان با استفاده از متد Show يك فرم را نمايش داد. در اين قسمت مي خواهيم كه در صورت صحيح بودن يك شرط از نمايش فرم جلوگيري شود. براي اين كار، با توجه به اينكه با فراخواني متد Show در فرم اول ، رويداد Onshow از فرم دوم اجرا مي شود. بايد از كد زير در اين رويداد استفاده كنيم :

  if Form1.Edit1.Text=IntToStr(1) then
  PostMessage(form2.Handle,WM_CLOSE,0,0);
دستور PostMessage با پارامتر WM_CLOSE باعث عدم نمايش فرم مي شود. در كد بالا در صورتي كه مقدار Edit1 برابر با 1 شود Form2 نمايش داده نمي شود.