Código Delphi [-] ... procedure TForm1.FormCreate(Sender: TObject); begin ToolBar1.Visible := False; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ToolBar1.Visible := Y <= ToolBar1.Height; end;
... procedure TForm1.FormCreate(Sender: TObject); begin ToolBar1.Visible := False; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ToolBar1.Visible := Y <= ToolBar1.Height; end;