title: Delphi Borderless and Captionless Application
body: <p>I am willing to designed one Application in Delphi XE2 Borderlessly and Captionlessly by using the following code :</p>
  
  <pre><code>  BorderIcons = []
    BorderStyle = bsNone
  </code></pre>
  
  <p>But the problem is that there is no Menu on Right Click on the Application on Taskbar just like in the above image. Then I have tried the following codes on FormShow event, but there is also another problem. One Border is created on Left side and Left-Botton side. The codes are :</p>
  
  <pre><code>procedure TForm1.FormShow(Sender: TObject);
  var
    r: TRect;
  begin
    r := ClientRect;
    OffsetRect(r, 0, GetSystemMetrics(SM_CYCAPTION));
    OffsetRect(r, GetSystemMetrics(SM_CXFRAME), GetSystemMetrics(SM_CYFRAME));
    SetWindowRgn(Handle,
    CreateRectRgn(
    r.Left, r.Top,
    ClientWidth + r.Left, ClientHeight + r.Top), True);
  
  end;
  </code></pre>
  
  <p>Please help me.</p>