//How to create "toolbar" window procedure TForm2.FormCreate(Sender: TObject); begin SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end;